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This  research  has  been  directed  toward  ciq>tuiing  large  cross  sectional  rotatkm  during 
bending  of  conqxrsite  arches.  A  potential  energy  based  nonlinear  finite  elemrat  model  that 
incorptHrates  transverse  shear  strain  was  modified  to  include  large  bending  rotttions. 

Large  rotaticm  kinematics  were  derived  in  a  vector  format  leading  to  nonlinear  strain  that 
was  decomposed  into  convenient  forms  for  inclusion  in  the  potential  energy  functimt 
Problem  discretization  resulted  in  a  finite  elemoit  model  ciqmUe  of  large  deformations. 
Riks  method  and  displacement  control  solution  techniques  were  used.  Numerous 
problems  and  exan^les  were  compared  and  analyzed.  Code  vectorization  and 
parallelization  were  briefly  examined  to  inqxxive  computatkmal  efficiency. 
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NONLINEAR  LARGE  DEFORMATION  THEORY 


OF  COMPOSITE  ARCHES  USING 
TRUNCATED  ROTATIONS 


I.  Introduction 


1.1  Background 

Today’s  aerospace  imlustry  has  advanced  to  the  point  of  using  optimum  design 
techniques  in  virtually  all  engineering  applications.  In  stractural  elements,  crthotrq)ic 
fiber  ccmiposite  materials  have  emerged  as  ligb^,  strcmger  and  many  times,  a  more  easily 
manufactured  solution  to  a  material  application  problem.  Conqwsites  have  the  distinct 
advantage  of  being  designed  and  built  to  ouuiy  dififerait  q)ecifications  by  varying 
materials,  amount  of  Eber/matrix,  and  ply  orientation.  As  with  other  high  performance 
applications,  the  fiber  composite  analysis  techniques  are  nxne  complicated  than  their 
simpler  isotrc^ic  counterparts. 

The  US  Air  Force  uses  diin  composite  shell  stractures  in  many  existing  systems  and  is 
likely  to  use  them  extensively  in  the  future.  Shells  are  defined  as  curved  structures  with 
one  dimension  being  small  compared  to  the  others  (diin).  If  anodier  dimension  is 
relatively  small  (width),  then  the  geometry  may  be  referred  to  as  an  arch.  This  research 
has  been  directed  towards  capturing  large  bending  behavior  of  transversely  loaded  flat 
beams  and  curved  arches  with  rectangular  cross  sections.  Unlike  other  mie  dimensional 


M 


techniques  that  usually  arise  tiuough  beam  tlucny,  this  thesis  is  (krived  from  a  mcxe 
ctxnplicaied  two  dimensitmal  shell  dieory. 

One  problem  of  interest  involves  arches  that  experience  large  deformatitxis,  but  small 
strains.  This  problem  class  is  considered  geometrically  mmlinear,  but  allows  the  material 
properties  to  be  modeled  in  a  linear  elastic  manner.  Structural  stiffoess  changes  come 
about  from  changes  in  the  geometry  during  deformation  and  not  from  changes  in  the 
material  properties  due  to  plasticity,  creep  etc.  Much  work  has  been  done  to  predict  the 
behavior  of  anisotrc^ic  plates  and  shells.  I^azotto  and  Dennis  [27]  have  devel(^)ed  a 
geometrically  nonlinear  shell  theory  and  accompanying  FORTRAN  code  to  trace  the 
equilibrium  path  of  orthotrc^ic  cylindrical  shells.  They  include  the  following  in  their 
theory; 

1.  geometric  nonlinearity  with  large  displacement  and  moderate  rotations, 

2.  linear  elastic  behavior  of  laminated  anisotropic  materials, 

3.  cylindrical  shells  and  flat  plates, 

4.  parabolic  distribution  of  transverse  shear  stress, 

5.  and  a  rinite  element  approach. 

Creaghan  [8]  narrowed  the  class  of  problems  considered  by  Palazotto  and  Dennis  from 
two  dimensional  plates  and  shells  to  one  dimensional  beams  and  arches.  He  retained  all  of 
the  features  developed  by  Palazotto  and  Dennis,  but  reduced  the  theory  by  one  dimension. 
Creaghan's  research  resulted  in  a  relatively  simple  FORTRAN  code  that  is  easily  tiKxlified 
with  further  theory  enhancements.  Creaghan  demonstrated  good  problem  solutions  (as 
compared  to  other  analytical  solutions  and  test  data)  to  23  degrees  of  bending  rotation. 
Beyond  that  point,  significant  solution  divergence  occurred  for  numerous  beam  and  arch 
problems.  The  current  research  is  directed  to  improving  upon  this  rotation  limit  by 
incorporating  a  large  bending  rotation  theory.  Initially,  C^reaghan's  code  is  retained  as  a 
framework.  His  simple  approach  and  one  dimensionality  make  it  an  excellent  baseline  to 


1-2 


build  to.  Before  examining  the  cuirent  theory  doivation,  the  author  will  bri^y  review  the 
history  of  shell  theory  and  examine  what  otters  have  puUished  in  terms  of  beam  and  arch 
nonlinearity.  The  literature  review  will  be  concluded  by  discussing  otha*  large  rotation 
theories  and  finally  reviewing  work  that  has  been  documented  (xi  advanced  computing 
ccmcepts  fcx*  nonlinear  finite  element  problens. 


1 2  Literature  Review 

One  of  the  earliest  two  dimensitxial  theory  designed  to  describe  the  three  dimensional 
problem  of  thin  flat  plates  was  developed  by  Kirchhoff  [30].  Kirchhoff  assumed: 

1.  The  middle  plane  remained  unstrained  (inextensible). 

2.  Through-the-thickness  normal  stress  and  strain  are  small  compared  to  others  and 
are  neglected. 

3.  Cross  section  normals  to  the  mid-plane  remain  normal  throughout  bending.  There 
is  no  warping  of  the  cross  section.  This  assumption  essentially  neglects  all  transverse 
shear  effects. 

KirchhofFs  theory  was  extended  to  thin  curved  structures  by  Love  [30].  The  emerging 
theory,  referred  to  as  Kirchhoff-Love  shell  theory,  also  neglected  transverse  stress  shear 
stress  and  strain.  Koiter  [19]  showed  that  refinements  of  the  Love  theory  are  of  little  use 
unless  transverse  shear  deformation  effects  are  included. 

Reissner  [29]  and  Mindlin  [21]  added  transverse  shear  to  the  Kirchhoff-Love 
development.  The  Reissner-Mindlin  (RM)  thetxy  includes  transverse  shear  that  is 
constant  through-the-thickness.  This  results  in  a  cross  section  that  can  rotate,  but  not 
warp.  RM  theory  does  not  satisfy  the  stress  free  boundary  condition  at  the  top  and 
bottom  surfaces  of  the  shell.  Consequently,  when  RM  theory  is  used  in  a  finite  element 
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model,  certain  problems  can  experience  shear  locking.  Shear  locking  occurs  vidien  die 
transverse  shear  causes  the  structure  to  act  much  stiffer  than  is  physically  omrect  Shear 
correction  factors  are  usually  used  to  avoid  locking  when  using  a  theory  that  incoqxHates 
shear  but  doesn't  satisfy  stress  free  boundary  conditions.  Elements  that  have  nodes  on  the 
tq)  and  bottom  surfaces  with  incorrect  shear  representation  are  likely  to  lock  when  the 
structure  gets  thin  unless  correction  factors  are  applied. 

Reddy  [28]  and  others  have  developed  theories  with  displacement  functions  that  are 
cubic  in  the  thickness  coordinate.  This  results  in  a  parabolic  transverse  shear  distribution. 
With  the  proper  choice  of  constants,  these  theories  satisfy  the  stress  free  boundary 
conditions  at  the  surfaces,  thereby  eliminating  shear  locking  concerns.  This  parabolic 
shear  distribution  was  used  by  Palazotto  and  Dennis  [27]  and  Creaghan  [8]  and 
c(Misequently  is  used  here. 

Beam  and  arch  theories  have  been  developed  in  a  manner  similar  to  shells  and  plates. 
Due  to  their  one  dimensional  nature,  most  of  these  theories  tend  to  be  derived  from  beam 
theory  and  are  consequently  easier  to  implentent  than  most  2-D  theories.  Although  not  all 
the  theories  reviewed  are  strictly  1-D,  they  are  analyzed  to  determine  their  ^plicability  to 
the  beam  and  arch  problems  of  interest  All  of  the  mentioned  authors  analyze  at  least  one 
beam  or  arch  problem  with  the  theory  discussed.  As  with  plates  and  shells,  beams  and 
arches  have  been  analyzed  using  Kirchhoff-Love  and  Reissner-Mindlin  approaches.  Many 
theories  include  higher  order  shear  representations.  As  we  briefly  review  some  other 
theories,  the  complexity  of  a  certain  method  can  be  roughly  evaluated  by  answering  the 
following  questions: 

1.  Is  the  formulation  updated  or  total  Lagrangian?  Some  updated  Lagrangian 
theories  lose  accuracy  as  the  geometry  becomes  very  nonlinear.  Total  Lagrangian 
formulations  always  reference  the  original  coordinate  system  while  updated  Lagrangian 
formulations  reference  a  coordinate  system  that  changes  with  deformation. 
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2.  Are  small  angle  i4>proximatiofis  used?  diecvies  use  exact  Idnematic 
relatkxiships  for  highly  nonlinear  problems.  When  they  do,  odier  major  sin^lifications  are 
usually  made  so  that  the  equations  can  be  solved. 

3.  Is  the  mid-plane  allowed  to  extend?  If  it  is,  what  is  the  order  of  the  mid-plane 
strain? 

4.  Does  the  thecny  allow  for  transverse  shear  deformation?  If  it  does,  what  order  is 
the  representation  and  is  locking  a  amcem? 

5.  Are  anisotropic  materials  allowed? 

Huddleston  [17]  presents  closed  form  soluticms  to  various  isotropic  arches.  His  thetxy 
allows  stretching  of  the  mid-plane  (to  varying  (tegrees),  but  does  not  include  higho’  mdo’ 
strain  terms.  Strain  is  calculated  from  axial  f(»ces  and  moments  through  constitutive 
relations  rather  than  strain  displacement  equatimis.  Huddleston  uses  a  total  Lagrangian 
formulaticm  with  no  small  angle  tqiproximations.  This  themy  is  unique  because 
Huddleston  does  not  use  finite  elements  to  approximate  solutions,  rather,  he  solves  the 
nonlinear  partial  differential  equations  simultaneously. 

Mondkar  and  Powell  [23]  have  developed  a  theory  to  predict  tire  nonlinear  dynamic 
and  static  response  of  general  structures.  Their  method  is  quite  advanced  because  they 
form  the  equations  of  moticxi  in  a  total  Lagrangian  system  and  solve  the  equaticms  a 
numerical  integration  scheme  while  retaining  trumy  nonlinear  terms.  They  utilize  the 
principle  of  virtual  displacement  and  apply  a  variaticmal  approach  to  the  equaticms  of 
motion  to  get  an  incremental  form.  After  linearization  and  integration,  tire  jHoblem  is 
discretized  and  placed  into  a  classical  frnite  element  formulaticm.  They  do  allow  for  mid¬ 
plane  extensibility  and  transverse  shear,  but  do  not  allow  for  anisotropic  materials. 

Hsiao  and  Hou  [IS]  developed  an  updated  Lagrangian  formulation  but  are  constrained 
by  Euler-Bemolli  beam  assumptions.  They  dem't  include  transverse  shear,  and  assume 
cemstant  membrane  strain  along  the  length.  They  are  also  constrained  to  small  axial  strain 
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(sum  of  membrane  and  bending  strains).  Hsiao  and  Hou  use  a  corotadonal  fonnuladcm  to 
separate  rigid  body  motion  and  deformations.  This  is  a  pt^nilar  technique  comnxm  to 
many  updated  Lagrangian  systems.  Hieir  goal  is  to  examine  large  rotations,  but  dieir 
beam  assumptions  make  this  a  somewhat  lower  mder  theory  (in  strain). 

Noguchi  and  Hisada  [24]  develop  a  nonlinear  finite  element  nxxlel  as  an  altonative  tt> 
solving  a  linear  eigenvalue  problem  to  evaluate  post  collapse  behavior  of  shell  strictures. 
They  develop  kinematic  relationships  through  a  vector  oriented  total  Lagrangian 
approach.  While  the  current  effort  isn't  focused  on  buckling  analysis,  Noguchi  and  Hisada 
provide  an  excellent  example  of  how  large  rotation  kinematics  can  be  derived  for  thin 
sections. 

Karamanlidis,  Honecker  and  Knodie  [18]  present  a  large  deflection  tiieoiy  and  finite 
element  analysis  for  pre-  and  post-critical  response  of  thin  elastic  frames.  The  thin  secticm 
assumption  allows  them  to  neglect  all  transverse  shear  effects.  They  use  an  iqxlated 
Lagrangian  formulation  with  an  attached  reference  firame  that  moves  with  deforming 
elements.  Correction  factors  are  applied  to  an  energy  function  to  account  fm  theory 
limitaticHis  that  would  not  ensure  equilibrium.  Using  small  increments,  they  are  able  to 
obtain  solutions  for  very  nonlinear  configuraticms,  but  are  limited  to  relatively  thin 
structures. 

Chandrashekhara's  [6]  general  approach  to  nonlinear  bending  of  composite  beams, 
plates  and  shells  incorporates  bodi  geometric  and  material  nonlinearity.  Sanders  ^11 
theory  provides  the  basis  for  his  finite  element  evaluation.  First  order  transverse  shear  is 
included,  but  Sanders  elements  are  generally  limited  to  lower  order  strain  displacement 
relations.  Shear  correction  factors  are  used  to  avoid  locking.  Chandrashekhara  considers 
geometric  nonlinearity  to  the  extent  allowed  by  Von-Karman  strain  displacement 
equations.  As  a  result,  many  higher  order  strain  terms  are  neglected. 
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Sato  and  Lock  [31]  examined  geometric  nonlinearity  oi  circular  arches  made  of 
isotrc^c  material.  They  use  a  total  Lagrangian  formulation  diat  neglects  transverse  shear 
strain.  In-plane  nmtnal  strain  that  is  linear  in  the  thickness  coordinate  is  included  with  an 
extendible  mid-plaiie,  although  many  higher  order  mid-plane  terms  are  neglected.  Tlwy 
capture  the  multiple  sniping  phenomena  common  to  transversely  loaded  thin  arches. 

DaDeppo  and  Schmidt  [10],  [11],  [32]  have  conducted  extensive  research  in  the  area 
of  transversely  loaded  isotrr^c  circular  arches.  In  some  problems  they  include  mid-plane 
extensibility  and  transverse  shear,  while  in  others  they  do  not  When  included,  transverse 
shear  is  constant  through-the-thickness  (no  cross  sectional  warping),  so  shear  correction 
factors  are  requited  to  avoid  locking  in  thin  elements.  Their  tiieary  is  unique  because  they 
use  an  exact  (no  trigonometric  approximations)  total  Lagrangian  formulation  with  finite 
differencing  to  obtain  equilibrium  equations. 

Epstein  and  Murray  [12]  neglect  transverse  shear  strain,  but  retain  up  to  quadratic 
order  (in  the  thickness  coordinate)  of  in-plane  strain  terms.  They  allow  mid-plane 
extension  and  retain  more  higher  order  terms  than  most  other  theories.  Epstein  and 
Murray  use  a  total  Lagrangian  formulation,  but  similar  to  DaDeppo  and  Schmidt,  they  use 
exact  kinematic  relationships.  Their  thecxy  is  simplified  by  considering  only  isotrc^c  flat 
beams  and  keeping  normals  to  the  beam  axis  undistorted. 

Belytschko  and  Glaum  [4]  use  an  updated  Lagrangian  in  a  corotational  formulation. 
CoOTdinates  are  attached  to  elements  during  deformatirxi  allowing  rigid  body  motion  and 
deformation  to  be  separated.  Small  angle  approximations  are  used  to  relate  the  corotated 
axes.  As  the  coordinate  system  for  each  element  is  updated  at  each  increment,  there  is  a 
limit  (m  the  size  of  the  increment  used.  They  utilize  Euler-Bemolli  beam  assumptirms  and 
neglect  many  of  the  higher  order  in-plane  strain  terms. 

Brockman  [5]  reported  on  a  three  dimensional  finite  element  code  developed  for  the 
US  Air  Force.  The  program  is  capable  of  evaluating  geometric  as  well  as  material 
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nonlinearity  in  general  3-D  engineering  structures.  Brockman  uses  an  iqalaied  Lagtangian 
reference  frame  to  describe  motion.  He  develt^s  a  3-D  solid  element  vidiich  is  unique  in 
that  all  transverse  quanthies  are  included.  This  advanced  element  does  ntx  include 
rotational  degrees  of  fireedom,  but  retains  all  die  coupling  between  extenskmal  and 
bending  strains  widi  complete  mid-plane  ntmlinearity  included.  This  theny  is  very 
complete  and  c{^)able  of  very  large  displacements,  but  can  be  computationally  intensive. 

Antman  [3]  presents  an  advanced  updated  Lagran^an  ^iproach  to  mmlinear  shell 
problems.  He  has  geometrically  exact  kinematic  relations,  as  no  trigonometric 
{^iproximations  are  ever  made.  This  removes  many  of  the  traditional  rotadcm  limits  that 
can  exist  fitxn  using  trigonometric  approximadmis.  Antman  includes  mid-surface 
extension,  transverse  shear,  bending  rotadcm  and  transverse  mnmal  strain.  Nmlinear 
partial  differential  equations  are  solved  for  several  classes  of  problems.  No  finite  elenoent 
formulation  is  presented  and  solution  techniques  tend  to  be  problon  specific,  making  this 
theory  difficult  to  extend  to  general  structures. 

Recently,  Minguet  and  Dugundji  [22]  have  developed  a  geometrically  nonlinear  model 
in  an  updated  Lagrangian  formulation  that  they  validated  with  con[q)osite  beam  test  data. 
They  include  constant  transverse  shear  strain,  mid-plane  extensibility,  and  axial/shear 
coupling.  Average  rigid  body  motitm  is  tracked  by  an  attached  reference  fhune  via  Euler 
angles.  Minguet  and  Dugundji  have  conducted  numerous  tests  on  cantilevered  c(nrq)osite 
beams  in  an  effort  to  evaluate  bending  of  composite  helicq>ter  blades.  Their  data  provides 
an  excellent  opportunity  to  validate  any  nonlinear  composite  beam  theory. 

Creaghan  [8]  lias  developed  a  nonlinear  composite  arch  model  based  on  the  shell 
theory  of  Palazotto  and  Dennis  [27].  Creaghan  includes  mid-plane  extensibility,  parabolic 
transverse  shear,  and  all  nonlinear  in-plane  strain  terms.  His  finite  elemmt  model  provitfes 
the  initial  background  for  the  current  effort. 
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In  the  specific  area  of  large  rotation,  total  Lagrangian  theories  seem  to  be  using 
techniques  tradititHially  used  in  updated  Lagrangian  systems.  Nygard  and  Betgan  [26] 
utilize  a  "ghost"  reference  system  in  a  total  Lagrangian  formulation  to  more  accurately 
capture  large  rotation  effects.  A  corotational  ghost  reference  system  is  used  to  capture 
rigid  body  motkm  between  a  deformed  and  the  original  coordinate  systems.  Strain  is 
calculated  in  this  imated  ghost  frame,  then  transfcmned  beck  to  the  miginal  coordinate 
system  (i.e.,  die  total  Lagrangian  classification).  This  theory  is  accurate  as  long  as  rigid 
body  motion  alcme  separates  the  ghost  and  original  coordinate  systems.  Nygard  and 
Borgan  do  not  use  angle  approximations,  but  introduce  the  complexity  of  multiple 
comxlinate  systems  and  additional  strain  transformations. 

Problems  are  frequently  classified  by  the  size  of  the  bending  rotatitMis.  Nolte, 
Makowsld  and  Stumpf  [25]  provide  a  classificatitm  theory  to  help  de^mine  when  smaU, 
moderate,  large  and  finite  rotation  theories  should  be  used.  Acctnding  to  [25],  large 
rotation  theory  would  be  used  when  bending  angles  reached  15  degrees,  and  rotations 
near  50  degrees  required  a  finite  rotation  theory  with  no  qiproximations.  Smith  [33] 
applied  their  classifications  to  a  typical  cylindrical  shell  and  showed  that  cross  section 
rotations  on  the  order  of  5  degrees  required  the  use  of  a  moderate  rotation  theory. 
Furthermore,  Smith  showed  that  numerous  authors  used  small  or  nxxierate  rotation  theory 
with  seemingly  good  results  when  the  Nolte  criteria  would  require  at  least  a  large  rotation 
theory.  Few  theories  [3],  [12]  utilize  finite  rotations,  but  they  usually  require  other 
limiting  assumptions  to  formulate  a  tractable  problem.  Using  a  nnoderate  rotation  themy, 
Creaghan  [8]  showed  accurate  solutions  up  to  23  degrees  of  bending  rotation.  The  goal 
of  the  current  research  is  to  obtain  accurate  solutions  for  bending  rotations  in  excess  of  45 
degrees.  In  this  area,  nx>re  accurate  rotation  kinematics  are  necessary. 

As  can  be  seen  frran  the  discussion  of  the  previous  theories,  nonlinear  finite  element 
nmdels  can  bectmie  complicated.  Simplifying  assumptions  help  reduce  complexity,  but 
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nearly  all  modon  efforts  invdve  extensive  calculatHMis.  With  additional  conqilaity 
usuaUy  comes  additional  oon^Hitadonal  requirements.  With  the  advoit  dT  modem 
coaq>uters,  themy  ccHi^lexity  has  increased  as  computing  powor  has  increased.  Large 
systems  coupled  widi  cooqilex  programs  can  tax  even  the  most  modem  saial  machines. 

In  order  to  examine  possible  benefits  fiom  recent  vectorizatkm  and  parallelization 
technologies,  these  subjects  will  be  related  to  the  current  effort  in  the  remainder  of  this 
cluqrter. 

Recently,  great  progress  has  been  made  in  iq^lying  parallel  processing  and 
vectorization  to  complex  engineeiing  problems.  Adeli  et  al .  [1]  address  high  performance 
computing  of  structural  mechanics  problems.  They  examine  vectorization  techniques, 
programming  language  considerations,  parallel  numerical  algorithms  arxi  performance 
parameters  iqrpropriate  fw  evaluating  improvements.  Adeli  et  al.  tyrply  their  concepts  to 
numerous  structural  disciplines,  such  as  linear  and  nonlinear  structural  analysis,  transient 
analysis,  dynamics  of  multi  body  flexible  systems  and  structural  optimization. 

VanLuchene,  Lee  and  Meyers  [36]  have  evaluated  the  performance  of  large  scale 
finite  element  solutions  on  vector  processors.  They  define  different  levels  of  vectorization 
as  they  apply  to  different  structural  applicatimis  such  as  performance  measurement, 
element  calculations,  system  solution  techniques  aixl  other  related  mmlinear  tc^cs. 
VanLuchene  et  al.  boast  a  ten  fold  reduction  in  CPU  time  with  pr(^)er  vectorization 
techniques  on  typical  nonlinear  nradels. 

Farhat,  Wilson,  and  Powell  [13]  examine  tinite  element  codes  on  concurrent  processing 
computers.  They  provide  a  parallel  processing  architecture  specifically  designed  for  finite 
element  applications.  Farhat  et  al.  evaluate  the  oitire  finite  element  proUem  on  parallel 
processors  including  domain  subdivision,  data  structure  and  concurrent  parallel  solution 
algorithms.  The  current  research  will  try  to  take  advantage  of  some  of  these 
computational  advances. 
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2.1  KinemaHcs 

bi  onkr  to  exanune  the  jAysical  nature  of  the  kmematic  rdatitmships,  we  wUl  derive 
displacement  equations  in  a  vector  fionnat  While  odiers  present  analytical  functkms  that 
provide  accurate  results,  they  many  times  dcm't  have  jrfiysical  meaning.  The  vector 
derivarimi  provides  die  reader  a  better  physical  interpretadmi  of  the  meaning  of 
displacement  terms  and  large  rotation  inqilicaticMis.  We  begin  by  deriving  die 
displacement  equations  of  a  beam  undergoing  bending.  Figure  2-1  shows  a  cross-section 
of  a  flat  beam  undergoing  pure  bending.  Points  j  ami  k  are  on  the  outer  surface  widi  i 
being  at  die  mid-plane.  The  V  coordinate  system  starts  out  parallel  to  the  original  system, 
but  moves  with  die  normal  of  the  cross-section  during  deformatioa  Figure  2-1  shows  the 
mtal  Lagrangian  coordinate  system  used  widi  the  e  cocndinates  as  the  miginal 
undeformed  coordinate  system  (referred  to  as  the  global  system).  All  displacements  are 
measured  relative  to  the  global  cotnxlinate  system.  ¥3;  is  a  vecter  directed  along  the 
cross-sectitmal  thickness  during  bending  with  a  magnitude  equal  to  the  thickness  (h).  TIte 
other  two  V  con^nents  form  a  right  handed  system  with  a  being  rotation  angle  about 
Vii.  Since  we  are  only  currently  considering  bending  (no  warping  firmn  shear  yet),  ¥3^  and 
Vji  remain  peipendicular  throughout  the  defcmnaticm.  Natural  coordinates  are  utilized 
with  ^  being  aligned  with  the  e  3  direction  and  having  value  +1  at  the  surface  aiKl  -1  at 
die  bottmn  surface  (as  defined  by  positive  coordinate  directicm). 
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Hgure  2-1  Flat  Beam  Bending  Rotation 


Vjj  can  be  expressed  in  gl<^  coordinates  frame)  as: 


V3.  =  (yj-yk)c2-(Zj-Zk)c3 

The  direction  cosines  frv  V3J  are: 


y» 

riji]  h[2^-2* 


So  that  Eqn  (2-1)  can  be  written  as: 

V^=h(mle,4-nl^) 


(2-1) 

(2-2) 

(2-3) 


Where  the  "n”  refers  to  any  deformed  state.  For  any  point  P  which  lies  along  the  cross- 
section,  its  position  is  a  function  of  its  location  away  from  the  beam  center  line  and  the 
location  of  point  i  on  the  mid-plane: 


(2-4) 


Now,  for  a  total  Lagrangian  formulation,  the  displacement  of  any  aitritrary  point  P  can  be 
expressed  as: 


Where  the  "o'*  is  the  origmal  undefonned  state.  We  next  assiBue  diat  vertical 
displacement  (w)  does  not  vaiy  but  is  OMStant  daou^-the-dnckness.  The  resulting 
motion  of  pmnt  P  due  to  bending  rotation  is  shown  in  figure  2-2. 
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Hgure  2-2  Bmding  Motion 

The  displacement  assumptions  shown  in  figure  2-2  would  inply  a  lengdiening  oi  die 
beam  normal.  Any  through-the-diickness  nmmal  strain  from  diis  is  neglected.  The 
deformation  is  taken  as  purely  horizcmtal  diplacement  to  keep  wccmstant  through-the- 
thickness.  The  strain  that  develops  does  become  significant  at  extremely  large  rotations 
(transverse  normal  strain  beaxnes  infinite  as  a  approaches  90  degrees).  Eqn(2-3) 


becomes: 


V"  = 

^3i 


cos(ai)[n3j 


where  nijj  =-sin(ai)  and njj  =cos(ai) 


(2-6) 


Eqn(2-6)  is  substituted  into  Eqn(2-5)  with  a0=O  (the  original  system  is  aligned  with  itself): 


a  =  iL  +  ^h  — 

2  cos(a, 


1  KT  r^T] 


so  that 


(2-7) 
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where  fij  is  die  nxition  of  point  P  due  to  motion  of  mid-plane  pc^t  i.  [i?]  is  a  beading 
rotation  tensor.  This  derivaticm  follows  closely  that  of  Noguchi  and  Hisada  [24]  who  did 
a  post  buckling  sensitivity  analysis  of  shell  structures.  They  use  an  updated  Lagrangian 
with  a  truncated  Taylor  series  expansion  of  the  rotation  teisor.  A  similar  series  eiqiansioa 
for  the  tangent  in  Eqn(2-7)  will  be  shown  later.  Now,  the  general  displacement  equation 
can  be  expressed  in  natural  coordinates  as: 


fl  =  fl,+|[[«]-(/]]Vi  (2-8) 

where  [/]  is  the  2X2  identity  matrix. 

The  extension  to  curved  beams,  must  account  for  the  additional  motitxi  caused  due 
to  curvature.  The  term  in  Eqn  (2-8)  physically  represents  the  displacement  of  an 

arbitrary  point  caused  by  motion  of  the  mid-plane  (non  bending  type  of  motion).  The 
coordinates  for  the  curved  beam  are  shown  in  flgure  2-3.  The  coordinates  are  an 
orthogonal  curvilinear  set  with  die  2  direction  remaining  along  the  arch  mid-plane  and  the 
3  direction  pointing  toward  the  center  of  curvature. 

In  a  flat  beam  with  Cartesian  coordinates,  the  motion  of  the  mid-plane  gives  a  one  to 
one  correlation  at  point  P,  but  in  a  curvilinear  system,  metric  tensor  coefficients  must  be 
applied  [30],  [27].  No  longer  can  be  represented  directly  by  di^lacement  of  the  mid¬ 
plane  (v.w)  only  because  there  is  a  thickness  dependence.  This  is  shown  physically  and 
rather  simply  in  figure  2-4. 
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Rxmi  simple  geometric  relations,  it  can  be  shown  that  the  motion  of  point  P  due  to  motion 
of  the  mid-plane  can  be  expressed  as; 


v(l-z/r) 

w 


where  v  and  w  are  motion  of  the  midplane  point  i 


(2-9) 


The  same  result  comes  from  pr(q)er  application  oi  the  shell  scale  factOTS  as  shown  in 
Saada  [30]  or  Palazotto  and  Dennis  [27]. 

We  adopt  the  standard  that  a  positive  bending  angle  (t|f)  is  one  that  makes  a  point  in 
the  positive  z  direction  move  in  a  positive  s  direction.  We  defined  a  by  using  the  right 
hand  rule  in  a  positive  coordinate  direction  about  the  1  axis  which  means  y  =  -  a.  For  a 
graphical  representation  of  the  bending  angle  (y)  and  slope  (w.j)  relationships,  see  figure 
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Hgure  2-5  Pure  Bending  Cmvention 

After  Eqn(2-8)  and  Eqn(2-9)  are  expressed  in  global  coordinates,  the  displacement 
components  become: 

i^=v(l-i)+ztan(v)  ^2 

Uj  =  w 

Eqns(2-10)  give  the  displacement  relationsh^s  for  bending  movement  only.  It  does  not 
yet  include  any  through-the-thickness  shear  deformation.  Qassical  shell  theory  uses  small 
angle  approximations  in  the  kinematics  for  the  tan(t|r).  Obviously,  this  theory  is  limited  by 
extremely  large  bending  rotations  because  in-plane  displacements  become  infini^  as  ^ 
approaches  90  degrees.  We  would  like  to  include  higher  orders  of  the  z  coordinate 
direction  to  capture  displacement  effects  due  to  through-the-thickness  shear  strain.  If  we 
start  with  a  common  shell  displacement  relationship  as  found  in  Palazotto  and  Dennis  [27], 
but  include  the  tangent  function  in  the  z  component  instead  of  die  small  angle 
approximadon  \|/,  then  the  displacements  become: 


Ui-u=0 

Mj(5,z)=  v^l-  ztan(y)  +z*^+  z^y+  z^0  (2-11) 

Ui{s)=w 

The  detenmnaticHi  of  y  and  6  fdlows  Palazotto  and  Dennis  [27]  with  a  few 
differences.  The  coefficients  y  and  6  are  determined  by  the  boundary  conditkms  of 
zero  shear  strain  cm  the  upper  and  lower  surfaces.  Strain  will  be  discussed  in  section  2.3, 
but  liiwar  shear  strain  is  used  here  to  solve  for  the  unknown  constants  in  Eqn(2-ll). 

Shear  strain  is  found  from  applying  linear  (Steen  strain  and  appn^niate  scale  factms 
(details  in  section  2.3)  and  is  evaluated  at  resulting  in: 

♦=0  e=:f 

2r 

(2-12) 


1-  ^  Y=^(tan(\|f)+w,j)-  Y 


Assuming  that  the  beam  is  thin,  le.  h/r<  1/5,  the  hV(8r^)  term  can  be  neglected,  y  is  a 
coefficient  representing  the  displacement  due  to  transverse  shear  strain  when  multiplied  by 
z^.  To  maintain  consistency  with  linear  shear  strain,  the  small  angle  approximation 
(tan(\|;)^)  is  used  for  transverse  shear  resulting  in: 


3k 


j-(v+ w,j)«Y 


(2-13) 


Typical  arches  considered  have  a  large  radius  of  curvature,  making  6  much  smaller  duui  y, 
so  it  is  neglected.  Now  the  in-plane  displacements  of  Eqn  2-11  becomes: 


,z)  =  v(l-£) 


+  ztan(\|r)  +z^k(Y+  w,2) 


(2-14) 


where  k=-4/(3h2).  We  next  define  the  shear  angle  as  p.  Figure  2-6  shows  graphically  the 
relationship  between  shear  angle  P  and  slope  of  the  elastic  curve  The  P  sign 

convention  is  the  same  as  that  for  t|r,  that  is,  a  positive  shear  causes  points  on  a  positive  z 
perpendicular  to  move  in  the  positive  s  directicHi. 
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Rgure2-6  Pure  Shear  Convaiti(Mi 


Mathematically,  die  three  quantities  w,2,  and  ^  can  be  related  by: 

w,2+v  =  -P  (2-15) 

Rgure  2-7  shows  the  sign  conventicMi  of  these  three  quantities  together.  The  quantities  P 
and  t|r  are  treated  as  rotational  angles  about  a  point,  while  w,2  is  the  slt^  of  a  tangent  to 
the  elastic  curve  at  the  same  point  In  both  cases  in  figure  2-7,  >v,2  is  positive  while  P  and 
Y  adhere  to  the  sign  conventions  already  described.  Once  w,2  and  y  are  found  fran  a 
finite  element  solutitxi,  the  shear  angle  is  calculated  using  Eqn(2-lS). 


2-9 


Hgure  2-7  Slope,  Shear  and  Bending  Relationships 

The  tangent  function  in  Eqn(2-14)  is  now  ai^noximated  using  a  series  expansion  fw 
bending.  A  series  approximation  is  used  to  preserve  the  existing  model  degrees  of 
fieedom.  The  tangent  of  an  angle  can  be  expressed  as  [20]: 

taii(V)  =  X-  (2-16) 

is  0  • 


where  the  B^s  are  Bernoulli  numbers(Bi=-l/2, 82=1/6,  54=- 1/30, 8^=0,  B^=l/42 ...) 

and  y  is  expressed  in  radians.  We  are  interested  in  bending  rotations  ai  approximately  SO 
degrees.  At  that  angle,  a  two  term  truncation  of  Eqn(2-16)  provides  an  approximatimi  of 
tan(SO^)  that  is  92%  accurate  and  is  used  here  such  that: 
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(2-17) 


tan(v)-v+|V 

Eqn(2-17)  is  substituted  into  Eqn(2-14)  for  %  with  the  other  diqdacements  luichanged 
leaving: 

M2(s,z)  =  z(y+|V)+z’*(V+ w^) 

Uiis)=w  (2-18) 

«,  =  0 

Where  V  aiul  ware  di^lacement  of  the  mid-plane  in  the  2  and  3  global  directions 
respectively,  z  is  the  coordinate  distance  away  from  the  mid-plane,  y  is  the  angle  due  to 
cross-secdonal  bending  rotation,  and  is  the  slc^  of  the  mid-plane  tangent  Eqns(2-18) 
are  the  final  displacement  relationships  used  for  finding  strain. 

2J2  Constitutive  Relations 

Before  beginning  the  stress  strain  relations  used  in  the  current  work,  it  is  necessary  to 
define  the  contracted  notation  used  for  stress  and  strain  conqxments.  Table  2.1  ^ows  the 
explicit  and  contracted  notation  fm*  bodi  tensors. 


Stress 

Strain 

Contracted 

<^1 

<^11 

El 

En 

^2 

O22 

Ez 

E22 

a. 

£3 

E33 

<^4 

®23 

64 

2E23 

05 

Oi3 

Es 

2£,3 

^6 

<^12 

E6 

2^12 

Table  2-1  Gjntraction  Definiticms 
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A  coi]qx>site  lamina  with  embedded  fibers  has  a  local  coocdinaie  system  with  the  V 
axis  aligned  with  the  fiber  and  the  other  two  directions  (T,  3*)  coiiq>osing  the  transverse 
directions.  The  relationship  between  the  matoial  and  global  cooidinate  systnn  is  shown 
in  figure  2-8.  One  should  notice  that  the  3  direction  points  into  tlw  page  and  that  3  and  3* 
are  always  aligned  for  the  present  woik. 


Figure  2-8  Material  and  Global  Coordinate  Relationships 

The  stress  and  strain  for  a  single  orthotropic  lamina  can  be  expressed  in  material 
coordinates  as: 

on  \Qu  Qn  0  0  Olfe,' 

^2  Q\2  Qn  0  0  0  62 

<y;[=  0  0  a,  0  0  |e;>  (2-19) 

04  0  0  0  (244  0  ei 

Oj'J  [  0  0  0  0  Q55J  [e; 

where  a^'s  are  ply  stresses,  e^'s  are  strains  and  Q^'s  are  the  plane  stress  reduced  ply  stiffiiess 
in  the  material  coordinate  system.  The  assun^tion  for  the  present  development  follows 
shell  theory  and  classical  laminated  plate  theory  closely.  First,  the  beam  is  assumed  thin, 
plane  stress  condititms  approximate  O3  as  zero.  The  through  thickness  normal  strain,  £3, 
is  found  through  constitutive  relationships  as  detailed  in  Palazotto  and  Dennis  [27],  but 
has  already  been  incorporated  Eqn  (2-19).  The  (^j's  are  found  in  Aagarwal  et  al.  [2]: 
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(2-20) 


Eqn  (2-21)  is  siiiq)liOed  by  first  assuming  the  normal  stress  in  the  1  direction  (o,)  is 
small  due  to  the  beam  being  narrow  and  is  neglected.  If  this  weren't  true,  the  problem 
would  better  be  modeled  as  a  2-D  shell.  We  also  assume  the  in-plane  shear  stress  (o^)  is 
small  sinoe  the  beam  is  narrow  and  traction  fiee  at  the  sides.  Any  coupling  between 
normal  and  in-plane  shear  is  not  modeled  here.  Beam  twisting  is  not  included,  dierefore,  o 
5  and  E5  are  neglected.  If  we  solve  the  first  three  equaticHis  of  Eqn(2-21)  and  eliminate  Ej 
and  £(,  the  re»ilting  simplified  beam  constitutive  relations  become: 
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O4*  “ 

A 

O3*  =Qa*Cj* 

where  (2-22) 

I  J* 

Since  the  model  is  a  bending  element,  dieie  is  no  coosidention  for  twist  or  torsional 
sdffoess.  This  linuts  the  oon^xMitB  laminaies  to  baUniced  syimnetric  lay-u|>s.  This 
restriction  makes  over  the  laminate  zoo.  When  each  ply  is  added,  die  equations  will 
sinqilify  so  that  (^«)k  can  be  set  to  zero  in  Eqn  (2-22). 


2  J  Strain  Relations 

Palazotto  and  Dennis  [27]  relate  die  Green  strain  and  shell  physical  strains  by: 

e^=-^  (no  sum)  (2-23) 

h,hj 

where  7y's  are  conqxxioits  of  the  Green  strain  tensor  and  /^'s  are  shell  scale  factors  arising 
from  the  metric  tensor  for  the  coordinate  system  shown  in  figure  2-3.  As  discussed 
previously,  only  the  in-plane  ncmnal  strain  and  through-die-thickness  shear  strain  are 
retained  for  die  present  wtxk. 

Y22  =  ^«M+^^.3 

hi  A 

and 
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where  ii|'  are  global  diapiacementsof  E<pi  (2-18). 

For  die  afdi  proUems  considered,  the  scale  factors  are  the  same  as  tfaoae  for  a 
cylindrical  shell  as  the  beam  width  doesn't  affect  scale  factots.  Forac^inderwiih 
curvature  in  the  2  or  s  direction  onty,  the  scale  freton  are: 


(2-26) 


where  the  scale  factors  match  dnse  developed  grqdiicaUy  in  figure  2-4. 

Now  Eqn(2-26),  Eqn(2-24)  and  Eqn(2-18)  are  placed  in  Eqn(2-23)  such  that: 


(2-27) 


widi  all  terms  of  Eqn(2-24)  being  retained  since  in-plane  strain  will  HnmiMir»  a  thin  beam 
bolding  pioMem.  Palazotto  and  Dennis  [27]  neglect  thirteen  higher  onler  terms.  Snndi 
[33]  and  (ZIreaghan  [8]  eadi  retained  these  terms,  as  does  the  present  work  (an  extraskm 
of  Creaghan’s).  They  are  retained  here  for  conqdeteiiess  and  for  easy  comparison  to  show 
die  ^ects  of  the  new  Idnematics  over  previous  work.  During  the  oqiansion  of  Eqn(2-27) 
by  way  <rfEqn(2-24),  many  sluqie  factor  terms  and  dieir  derivatives  are  present  which 
conqilicmes  the  expression  fiom  the  perspective  of  representing  die  strain  as  die 
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sumnudiMi  of  degrees  freedom  times  constants  and  times  z  to  various  powers.  To 
sinq)lifytlm,  tnincated  Taylor  series  expanskms  of  the  scale  factors  are  used,  resulting  in 
sixty  expressions  found  in  Palazotto  and  Dennis.  For  exanq)le,  one  cf  the  stnq>ler 
iq)pioximations  is: 


(2-28) 


Tenns  of  higher  than  first  order  in  z  are  truncated.  Smith  [33]  retained  quadratic  terms  in 
the  scale  factcx'  iq)piDximations  with  approximately  20%  stiffiiess  increase.  Only  a  few  of 
die  sixty  shell  scale  factor  q)ptoximatioas  are  needed  for  the  current  wofk.  The  scale 
factor  approximations  should  be  implemented  after  full  esqumrion  of  the  strain  equations. 
A  different  result  comes  frcxn  applying  scale  factor  tqqnoximations  before  expansi(»  of 
the  strain  equations.  The  scale  factor  approximatiwis  needed  fw  the  present  wwk  are: 


1 
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(2-29) 


where  c=l/r. 

Now  the  in-plane  normal  strain  can  be  expressed  in  terms  of  mkl-plane  strain  (£2°) 
and  functitxis  independent  of  z  (Xh's) 


£2 


(2-30) 
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«4iae 

e2**sV|^-WC+.5(v,2*+W^*4V*C*+wV)+VW^-V^WC 

X2i=^.2-wc^w^2c+w*c3<2(v^w-vw,2Hvvc^v^y^-c(V,2W-Vw,2H¥n¥*+'^n¥n¥* 

X22=^.2C+-5(¥.2^y*c*)+v^-2c*(Y^w-yw»2H¥.2V.2C-1.5(cSi+c*v^2)-c2v^ 

a/3)cavyMl/3)cV+(l/18)c^ 

Xa3=k(w^+V,2)+cv^HV^^+>cv,2(w,22+V^vkc^w^+V)-wkc(w^+y^w^(w^+y) 
•hc^^Vj^-2c^c^+v^y^V2c^.2y^^j^2cy^^|^+cy.^^yi-(2/3'>6iy3rcv-yW 
a/2)S^  (2-31) 

X24=kc(w,22+v.2)+vkc3(w,2+v)+2kc2(-ww^-wv^+w^2+w,2y)+kv^(w^+v,2)+ 

Vkc2(w,2+V)+v^(w,22-^V^-*^«|rnV*(l+^m)i^l/2)^to^^S^^ 

X2s=2kc(y^(w.22+y,2)+Vc^(w,2+y)-<^*2(w.22+V»2)-cMw,2+V)+YnV*w,22lt2kcl3|£.^l«^ 

0^3}s^il/3}g^]|g^ 

X26=k2/2(w^2+2w^y,2+y,22-K;2(w^2+2w,2y+y2)] 

X27  =k2c[(w,22+y^^2(w,2+y)2] 

The  bold  and  underlined  terms  are  all  new  t»sed  cm  the  tangent  series  e;q>ansion  for  U2- 
The  bold  terms  are  retained  in  die  present  analysis  while  the  underlined  terms  are 
neglected  as  high»  order.  The  criteria  for  neglecting  the  underlined  terms  was  any 
combination  of  c,  y,  y,2,  and  w^  that  is  order  5  ot  higher. 

If  the  beam  is  thin,  then  in-plane  stress  and  strain  dominate  the  bending  (noblm. 
Therefore,  for  sin^licity,  only  the  linear  components  of  Eqn  (2-25)  ate  retained  ftnr 
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ifarougli-Uie-thickness  shear  strain.  The  straia  ^  can  be  fiound  oombinii^  Ecpis  (2-23), 
(2-25)  and  (2-26): 


e.  =  2*..=^[i<«  +  (l-f]«u  +  ^]  (2-32) 

r 

Since  the  shear  strain  is  linear,  it  is  apprc^mate  to  use  small  angle  q>pn>ximatkms  for  the 
global  di^lacement  functions  in  E(^2-32).  Eqn(2-18)  then  becomes: 

«j(i,z)  =  v|^l-  z(v)  +2^*(v-i-  ) 

0,(5)  =  w  (2-33) 

o,  =  0 

Placing  Eqn(2-33)  into  Eqn(2-32)  gives: 

64  =  -^|^w.2+  ¥-  ^*2)] 

r 

The  largest  z  can  get  is  hP.  making  the  term  8zV(3h^)  comparatively  small  since  h/r;<l/5 
(1/lS  the  next  smallest  term)  and  is  neglected.  The  scale  facttH-  term  in  the  front  of  Eqn(2- 
34)  is  approximated  by  a  truncated  binomial  series  expansion.  It  is  truiwated  for  the  same 
reason,  namely,  that  the  second  term  is  at  maximum  1/10  the  first: 


1  ,  z 

—  =  H-— I- 


1-- 


'  4-3 


+  . . .»  1 


Now  the  through  thickness  shear  strain  can  be  expressed  as: 


(2-35) 


e4=e:+z"3C« 

with 

e;=w,2+V  (2-36) 

and 

X42  =-^(¥+ H'.z) 
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Ec|Bs(2-31)andEqDs(2-3Qwa»geaaaiBdby 
hand  and  tfam  checked  using  the  syndjohc  inuiqMdaior  Mscj^vna  [34]. 


2.4  Beam  Potential  Energy 


The  internal  strain  energy  density  of  an  elastic  conservative  system  (reversiMe 
adiabatic  or  isothermal  loading)  widi  small  strains  is: 


dW^* 

de 

* 


(2-37) 


where  is  strain  energy  density,  the  strain  tensor,  and  is  dte  stress  tensor.  Stress 
and  strain  can  be  related  by  a  constitutive  law  widi  an  elasticity  tensor 

=  Op,  Ztt  (2-38) 

Tlw  sttain  energy  density  can  now  be  defined  by: 


W  =  (2-39) 

The  potential  energy  11^  is  the  sum  of  die  internal  strain  energy  U  and  the  work  done 
by  external  forces  V: 

n,  =  f/  +  V  (2-40) 

where  U  is  defined  by  integrating  the  strain  energy  density  over  die  volume.  Since  the 
current  problem  retains  two  strain  components,  the  beam  strain  enogy  can  be  divided  into 
contributions  from  in-plane  strain  Ui  and  through-the-diickness  shear  strain  f/j- 


U=  jWdV  =  U^  +  U2  (2-41) 

Vol 

where  fra*  a  beam  width  b  and  length  /,  Ui  and  U2  are  defined  as: 
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(2-42) 


1 

J4.eS** 

^  I  -kn 

t'.  =  ^*J  Ja..e3<fe*  (2-43) 

^  I  -*/a 

Frun  the  leinesentatkm  of  £2  in  Eqn(2-30)  we  have: 

tl  =  (e5)'  +  +X(x2,z')*  (2-44) 

So  that  Ui  can  be  divided  into  three  pans  ctHresptmding  to  the  three  strain  ccMiqwnents  of 
Eqn(2-44): 


^  I 


(2-45) 


where: 

kfi 

n.=  j4.fe)  *=-<«:)' 


-«2 


m  ~  ~  262(^21  ^^22  ■*■  ^2J  ^^5C2«  ■*■  (%25  ■**  ^26  ^2?) 

-*/2  r=> 

m~  ^^21X21 '*"2£^X22'^  ^2X21X23  ■*■  3(22X22) 


-V2 


■^2G(x2i3C24  X223(23) 

+  2H{x2iXjS  X22X2«)'*'2f  (X21X2S  X2ZX2S  "*■  X23X2«) 

■*■  •^(2X21X27  ■*■2X223(26  ■*■  2X0X25  ■*‘3d*)‘*'  2^X22X27  ■•■  X23X26  ■*■  X2tX2s) 
■•■^2X23X27  ■*■  2X24X26  ■*■  3^5) ■*■  2F(X24X27  ■*■  X253(26)'*'  ^^XbXzI  X») 


■*■  25X26X27  ■*■  2’3^ 


(2-4Q 


The  strain  energy  components  of  Eqns(2-46)  have  been  integrated  dirough-the- 
thickness  to  obtain  the  elasticity  terms  {A,  B,  D,  E,  F,  G,  H,  I,  J,  K,  L,  P,  R,  S,  T)  which 
are  defined  by: 
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(2-47) 


{a,  B,  D,  E,  F,  G.  «.  /,  J,  K,  L,  P.  R,  S,  T)  = 


*/2 


-V2 

A 

All  other  terms  are  independent  of  the  thickness  direction.  For  a  conqiosite,  will  vary 

through-the-thickness  (can  be  different  at  any  k*  ply).  As  already  discussed,  the  presoit 
method  is  limited  to  balanced  symmetric  lay  ups  which  means  the  integration  oi  any  odd 
powers  of  z  in  Eqn(2-47)  will  be  zero.  This  makes  the  elasticity  toms  (B,  E,  G,  I,  K,  P,  S) 
zero  when  integrated  through  the  beam  thickness  which  simplifies  Eqn(2-46). 

The  strain  energy  due  to  through-the-diickness  shear  strain  can  be  represented  in  a 
similar  manner.  Substitution  of  Eqn(2-3^  into  Eqn(2-43)  gives; 


where. 


(2-48) 


Pi  1 

11,  =  f  (e:)  +  2e:5c«z"  +  2*  k 

-in  ^  J  (2 

=  AS{elf+2DSB;x^  +  FS{x^f 

The  shear  elasticity  terms  (AS,  DS,  FS)  are  found  in  a  manner  similar  to  Eqn(2-47)  by 
integrating  through-the-thickness: 


hn_ 

[AS,DS,FS]=  J(2„*[l,  z^z"}fe  (2-50) 

-hn 

Next  we  represent  the  strain  expressions  of  Eqn(2-30)  and  Eqn(2-36)  in  a  naore 
convenient  form  to  place  into  the  strain  energy  representations  of  Eqn(2-46)  and  Eqn(2- 
49).  Strain  can  be  divided  into  linear  and  nonlinear  parts  by  Orst  defining  the  gradient 
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vectCHT  d.  The  di^iacement  gradient  vector  contains  variables  necessary  to  represent  the 
strain  expresskms  of  Eqn(2-30)  and  Eqn(2-36): 

d^  =  {v  w  (2-51) 

The  terms  in  d  ate  raactly  the  ones  needed  for  strain  di^lacenamt  equations.  Thein-plane 
strain  can  be  tejnesented  as: 


tl=lJ.d+id’H.d 


(2-52) 


where  p=l^,3<4,S,6J.  The  L/s  are  column  vectors  of  omstants  to  represent  the  linear 
terms  of  strain  and  the  ///s  ate  symmetric  matrices  that  represent  die  nonlinear  strain 
continents  when  combined  with  the  displacement  gradient  vector  as  shown  above. 

The  strain  £4  can  be  represented  in  a  similar  manner.  The  shear  ei^essions  are  much 
simpler  since  only  linear  strain  is  used  and  small  angle  approximations  were  used  in  the 
kmonatics  equations. 


e:  =  Sid 

X4Z  =  Sid 


(2-53) 


where  the  S/s  are  column  vectors  of  constants  found  in  appendix  A. 

Cteaghan  had  constants  in  all  of  his  //  and  L  matrices  where  the  current  formulation 
contains  some  ncmlinear  terms  of  i|/-  The  use  of  this  representation  is  demonstrated  below 
with  the  con^lete  representation  found  in  appendix  A. 
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e;  =  {0  1  -c  0  0  0  0} 


V 

w 


w, 


m 


V 

yfn 


4{v 


w 


V 


V 

0 

0 

c 

0 

0 

o' 

•  • 

V 

0 

1 

-c 

0 

0 

0 

0 

V.J 

0 

-c 

c* 

0 

0 

0 

0 

IV 

c 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

V 

.0 

0 

0 

0 

0 

0 

0, 

¥•2. 

(2-54) 


As  mentioned  above,  many  of  the  H(s  are  no  longer  matrices  of  constants  but  have 
become  nonlinear  in  y  due  to  inclusion  of  large  rotation  kinematics.  For  exanq)le,  Xzi  is 
represented  as: 


Xn 


=  {o  0  -c"  0  0  0  l} 
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One  should  notice  that  is  now  ccMxq)osed  of  constants  and  tenns  involving  y.  The 
//i's  are  still  treated  as  though  they  are  constant  matrices  instead  of  higher  mder  functions 
of  the  displacement  gradient  vectOT.  This  is  dme  to  keep  the  form  of  the  {noblem 
ccMisistent  with  Palazotto  and  Dennis  [27]  and  Creaghan  [8].  The  ff^'s  are  linearized  in  y 
by  substituting  in  the  last  incremental  values  of  y.  Other  entries  in  the  displacement 
gradient  vector  could  have  been  represented  in  the  //j's  (since  all  the  new  tenns  are  at  least 
order  3  of  'e  displacement  gradient  vecttv  terms),  but  y  was  used  to  keep  the 
formulatitxi  siny le  with  only  one  variable  making  the  matrices  nonlinear.  This  will  make 
taking  the  first  variation  of  the  potential  energy  somewhat  simpler  later. 

The  strain  representations  in  Eqns(2-S2)  and  (2-53)  can  be  placed  into  the  strain 
energy  representations  of  Eqns(2-49),  (2-48),  (2-45),  (2-46)  and  finally  Eqn(2-41),  so  that 
the  total  beam  strain  energy  can  be  expressed  in  terms  of  die  displacement  gradient  vector 
as: 

U  =  ^b^(f  (2-56) 

where  k  is  a  matrix  of  constant  terms,  iV,  is  a  matrix  conyosed  of  linear  functions  of  d, 
and  N2  contains  quadratic  terms  from  d.  The  form  of  Eqn(2-56)  is  desired  for  the  ease  of 
finite  element  formulation  based  on  minimizing  the  potential  energy  function  to  come. 

A  A 

Again,  there  are  higher  order  functions  of  y  in  N,and  iVj*  ^  treated  as  constants. 
Eqn(2-56)  is  put  in  the  shown  fcnm  by  making  tire  aforementiraied  substitutions  then 
taking  advantage  of  symmetry.  This  process  is  shown  in  Palazotto  and  Dennis  [27:74]  and 
is  followed  exactly.  The  matrices  k,  iV,,  and  iVj  ^  represented  in  appendix  A  in  terms 
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of  L|'s,  //{'s  and  elasticity  toms.  Since  fonning  these  stiifiiess  anays  involves  Uteially 
thousands  of  operations,  Macsyma  [34]  was  used  to  do  the  manipulations  and  then 
generate  the  FORTRAN.  The  Macsyma  code  used  to  do  these  (^)erati<xis  is  located  in 
f4)pendixB. 

So  far,  die  present  formulaticMi  has  been  independent  of  a  solution  method.  The 
present  problem  is  a  set  ntmlinear  ordinary  differential  equations  that  would  be  formed 
by  setting  the  first  variation  of  die  potential  energy  to  zero.  Instead  of  sdving  a  system  of 
ncHilinear  ODE's,  the  system  is  discretized  into  elements  cminected  by  nodes.  The  result 
of  the  beam  discretization  is  a  system  of  nonlinear  algebraic  equations  which  can  be 
linearized  and  solved  iteratively  giving  approximate  problem  solutitHis. 


25  Finite  Element  Formulation 

The  nonlinear  algebraic  equations  that  result  by  casting  die  problem  in  a  Hnite  element 
form  can  be  solved  in  a  linear  fashion  by  using  an  incremental  approach  to  achieving 
equilibrium.  Two  methods  are  presendy  used:  one  varies  the  external  load  and  the  other 
varies  the  displacement  Each  is  discussed  in  section  2-6.  The  beam  finite  element 
developed  for  the  current  formulation  is  shown  in  figure  2-9.  This  element  is  the  same  as 
used  by  Creaghan  [8]. 
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Figure  2-9  Beam  Finite  Element 


The  element  in  figure  2-9  has  three  nodes  with  degrees  of  freedom  (DOF)  of  v,  w,  y, 
and  w,2  at  the  ends  and  v  only  at  the  middle  node.  The  degrees  of  freedom  (IX^  match 
quantities  needed  in  the  kinematic  Eqns(2-18).  The  middle  node  v  is  included  to  help 
capture  the  axial  extension  and  contraction  to  a  higher  order.  Cieaghan  showed  stiff 
solutions  when  diis  DOF  was  omitted,  so  it  is  retained  here.  Only  w  has  derivatives  in  the 
DOF.  In  order  to  achieve  w,2  continuity  between  the  elements,  Hermitian  shiqw  functimis 
are  used  for  w  and  its  derivatives  achieving  C*  continuity[7].  The  other  DOF  don't  have 
any  derivatives  as  DOF  meaning  only  CP  continuity  is  required.  Linear  shape  functions  are 
used  to  interpolate  y,  and  quadratic  shape  functions  are  used  to  interpolate  v.  The  values 
of  the  DOF  qCii)  at  any  point  in  the  beam  can  be  expressed  in  natural  coordinates  in  terms 
of  the  nodal  DOF  q  by: 
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where  the  sht^  functions  of  Eqn(2-57)  are: 

ei=j(Ti'-n)  ea=|(Ti'+ii)  e3=(i-n') 

iV,  =  l(l-Tl)  iV,  =  i(l+Tl) 

^  ^  (2-58) 

4  4 

^21  =  7(2+311-11’)  f/a=7(-l-T1-t-Tl^-Hl’) 

4  4 

To  use  the  potential  energy  expression  of  Eqn(2-56),  we  must  relate  the  displacement 
gradient  vector,  Eqn(2-51),  to  the  nodal  degrees  of  fipeedmn  for  the  element  One  should 
notice  that  y  is  interpolated  lineariy.  It  will  be  shown  in  cluster  in  that  this  elonmt  has 
some  solutitxi  problems  and  breaks  down  for  deep  arches.  One  way  to  he4>  alleviate  this 
problem  is  to  use  a  higher  order  inteipolaticMi  of  the  bending  angle.  This  could  be 
accon^lished  in  a  similar  manner  as  w  widi  functions,  or  add  mcm  y  DOFs  to  the 
element  An  initial  effort  to  incorporatB  large  bending  rotation  involved  "scaling”  the 
shape  functions  that  interpolated  y  to  a  value  near  the  tangent  In  this  case,  locking 
occurred  because  transverse  shear  was  updated  also.  The  matrix  of  sluq>e  functions  in 
natural  cocmdinates  used  to  get  d  will  be  referred  to  as  D. 
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Eqn(2-S9)  is  placed  into  global  coonUnates  by  multiplying  by  Ae  inverse  of  the 
Jacobian  matrix  (J). 


d(s)=  r^d(r\)=^  r^Dq^Tq 


where  7*’  is  defined  1^: 


J- 
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a. 


(2-60) 


(2-61) 


where  a  is  half  the  element  length. 

The  strain  energy  of  the  beam  firom  Eqn(2'56)  can  be  expressed  in  terms  of  the  nodal 
degrees  of  freedom  by: 
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(2-62) 


We  can  define  new  (piantities  whidi  will  milce  vp  a  tangnt  stiffiieu  matrix  by  impaling 
along  the  beam  length  «idi  that: 

K  =  blT^kTds  N^  =  bjT^N^Tds  N^  =  bjT^N^Tds  (2-63) 

I  I  I 

By  substituting  Eqns(2-63)  into  Eqn(2-62)  and  recalling  fiom  Eqn(2-40)  that  the  beam 
potential  oiergy  is  the  sum  of  intenud  strain  owrgy  and  the  woik  ci  extenud  foices,  die 
potential  eneigy  for  a  finite  element  can  be  expressed  as: 

where  /?  is  a  vector  of  extemaUy  apfdied  foices. 

Cairying  out  the  first  variation  of  Eqn(2-64)  and  setting  it  to  zero  results  in  equilibrium 
equations  (F)  below. 

=  (2-«5) 

Fot  an  artntraiy  and  independent  5q,  F(q ) = 0  is  a  set  nonlinear  algebraic  equilibrium 
equations  for  the  nodal  degrees  of  freedoixL  Eqn(2-6S)  is  solved  by  using  linearized 
iterative  techniques.  These  types  of  solutions  are  derived  by  ejqranding  Eqn(2-6S)  in  a 
truncated  Taylor  series  fcx:  a  small  Aq  such  that: 


F(<7+ Aq)< 


dF 

Fiq)+—Aq  =  0 
dq 


(2-66) 


or: 
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dF 

dq 


(2-67) 


Now,  by  taking  the  expression  for  F  from  E(p)(2-65)  and  {dacing  it  with  approprime 
derivatives  into  Eqn(2-67),  me  obtains: 

where  (2-68) 

a:,  =  [a:+n,+  N2] 

Eqn(2-68)  is  the  final  equiudon  desired  in  mdor  to  attain  the  values  of  the  e^ulibcium 
degrees  of  freedom.  Whatever  solution  method  is  used,  the  sdffoess  arrays  are 
geometrically  nmlinear  and  change  with  load/di^lacemrat  d  the  condnuos  structure. 


2.6  Numerical  Solution  Methods 


Eqn(2-68)  can  be  rewritten  to  include  all  tire  elements  oi  a  particular  model  by: 


k+  Ni  + 


(2-69) 


where  n  is  the  number  of  elements  and  j  represents  the  integration  over  a  specific  element 
The  above  equations  are  placed  into  a  natural  cocndinate  system  by  changing  the  limits  of 
integration  to  ±  1  and  including  the  determinant  of  the  Jacobian  tt>  facilitate  the  use  of 
Gauss  quadrature  numerical  integration.  The  curroit  model  has  the  durability  to  handle 
Gauss  quadrature  up  to  order  7,  but  order  5  was  used  for  all  the  problems  discussed  here. 
Order  m  Gauss  quadrature  is  required  to  integrate  polynomials  of  order  2m-l.  T  contains 

A 

cubic  polynomials  and  Nj  is  quadratic  in  displacement  containing  sixth  ordd  pdyiKniiials. 
To  integrate  exactly  would  require  Gauss  quadrature  of  order  7.  Code  [7]  shows  little 
difference  in  solutions  between  using  S  and  7  pdnt  Gauss  quadrature. 
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Hgurr  2-10  shows  a  goieric  load  di^laconcm  curve  with  Umit  points.  As  die  slope  ci 
the  curve  approaches  0  (point  A),  the  structure  collapses  or  snqis.  Beyond  this  pmnt, 
load  decreases  even  though  displacement  amtinues  to  increase.  As  we  continue  down  die 
equilibrium  path,  a  vertical  tangent  is  passed  ^int  B)  where  die  tangrat  ^iffiiess  matrix 
becomes  singular.  After  the  structure  has  "snapped,”  at  some  point  undn  an  inverted 
configuration,  the  structure  will  start  to  cany  increasing  load  again.  This  transition 
luqipens  at  another  horizontal  tangent  (point  C). 


Displacement 

Figure  2-10  General  Load  Displacement  Curve 
For  the  current  type  of  nonlinear  problems  ctxisidered,  Newton-Ralphson  approaches 
are  used.  Two  techniques  that  were  developed  elsewhere  are  used  here.  Each  is 
explained,  but  for  further  details,  the  reader  should  refer  to  the  original  development  The 
first  solution  scheme  is  a  displacement  control  method  developed  by  Palazotto  and  Dennis 
[27].  In  displacement  control  method,  displaconent  is  incremented  and  load  iterated  until 
equilibrium  is  achieved.  Displacement  control  is  good  for  traversing  limit  load  points  like 
point  A  in  figure  2-10,  but  cannot  handle  points  like  B  since  there  is  not  a  unique  solution 
to  a  single  prescribed  displacement  Displacen^nt  control  would  give  solutions  that 
traverse  instantaneously  from  B  to  C  and  do  not  capture  the  snap  back  characteristic 
shown  in  figure  2-10.  Many  times,  points  with  vertical  tangents  can  be  traversed  by 
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maldng  lai^  oioi^  di^UK^moit  inaaxwtts  to  "jump"  paA  the  problem  area.  Palautlo 
and  Dennis  [27]  develop  die  di^ilacemnu  control  algorithm  as: 


[A:+W.(«^.)+/V,(«t,)]A4^.= 


(2-70) 


where  n  is  the  iteration  number.  Eqn(2-70)isfora^g)ediq[dacementincranenL  Hgure 
2-11  shows  graphically  how  di^laoement  cmtrol  worics.  Beginning  from  an  estaUished 
equililnium  point,  the  displacement  is  incranented,  and  load  found  from  Eqn(2-70).  A 
new  displacement  value  is  then  found  by  satisfying  equilibrium  with  a  given  tolerance. 
Palazotto  and  Dennis  compare  a  displacement  mit  of  balance  condition  to  a  user  supplied 
criteria. 


Lo^ 


Figure  2-11  Displacement  Ctmtrol 

The  second  Newton-Ralphson  solution  method  is  a  modified  Riks-Wenqmer  technique 
which  was  t^pted  for  the  current  problem  by  Tsai  and  Palazotto  [35]  fnmi  an  original 
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procedure  shown  by  Criifidd  [9].  Tire  Riks  method,  slioerabdow,  will  ofiinreindt^ 
siuqpditDii^  points  trfroeqoilibrinm  curve,  b  does  dus  by  introducing  a  kretfing 
parameter,  X.  such  that  the  equiUbriurnequadon  becomes: 


F(q,X)  =  ^Ar+  =  0  (2-71) 

Eqn(2-7 1 )  is  expanded  in  a  manner  similar  to  dre  equilibrium  equation  for  (fiqdacement 
contnd.  When  the  resulting  series  is  truncated  and  ai^xopriate  derivatives  taken.  The 
lesuhis: 

Kj&j,  =  SX,R-Fig„X,)  (2-72) 

Widi  the  introduction  of  another  unkrrewn,  dre  loading  parameter,  the  system  of  equations 
is  short  one  equation  to  be  a  solvaUe  system.  The  additional  constraint  comes  fiom 
developing  a  search  radius  of  A/  which  gives  an  arch  to  look  along.  The  length  of  the 
search  radius  and  the  additional  equation  coirres  fiom  dre  Pytiuigorean  dreoiem: 

A(‘  =  A«;,A9,.,+  4X’.,*'lf  (2-73) 

The  search  padi  is  arbitrary  and  is  limited  to  values  small  enough  to  aqHure  the 
equilibrium  curve  accurately.  The  search  radius  is  then  approximated 

A/^  =  (2-74) 

The  search  radius  definition  of  Eqn(2-74)  causes  the  global  stiffiress  matrix  to  lose  its 
symmetry.  To  restore  symmetry,  5q,  is  reduced  to  two  parts: 

8?,  =  &7„  +  5X,&7..,  (2-75) 

where 

&7„  =  -^f‘F(q,.X,),  =  (2-76) 

The  updated  incremental  values  oi  di^lacenrent  and  load  parameto'can  be  exfnessed  in 
terms  of  the  previous  incranent  and  a  S  change: 
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1 


+  &7,  (2-77) 

AX,^,  =  AXi+SX,  (2-78) 

Substituting  these  into  the  new  constraint  equation,  a  quadratic  equaticm  results  such  that: 

fl63L^  +  bSX.  +  c=0  (2-79) 

where 


a  =  SgJ^Sqa .  b  =  2&ft^(A<7,  +&7J, 

/  XT/  X  ,  (2-80) 

c  =  (A<7.  +  &7. )  (A<7..  +  8i?i)  -  A/* 

The  above  process  is  iterated  until  convergence  is  achieved  by  defining  a  limiting  value  to 
5^}.  When  the  (/»)"■  load  increment  has  converged,  the  total  displacement  and  load 
parameter  values  are  calculated. 

<7*  =  <7«-i  +  A<7.,  X„  =  X^_,  +  AX^  (2-81) 

the  search  radius  for  the  load  step  is: 

A/.  =  AC.-^  (2-82) 

where  JV,  is  a  user  predicted  number  of  iterations  and  N„,j  is  the  number  of  iterations  for 
convergence  on  the  last  load  step.  Once  the  values  of  Eqn(2-82)  are  found  for  a  load 
increment,  the  initial  delta  load  parameter  is  found  from: 


AA,, 


=  ± 


A/. 


(2-83) 
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2.7  Step  by  Sup  Riks  Algorithm 


The  steps  shown  for  Riks  were  presented  by  Creaghan  [8]  and  are  repeated  here  fw 
ccMnpleteness.  Figure  2-12  shows  the  process  graphically  and  should  be  referenced  while 
following  the  text  description. 

1.  First  increment  and  first  iteration  compute  only  constant  stiffness  matrix,  K. 

2.  First  iteration  at  each  load  increment  cmnpute  S9i2=ArT^R.  After  the  first  increment, 
Kj  is  composed  from  nonlinear  displ^^ment  terms. 

3.  Each  iteration  and  each  increment  compute  For  first  increment, 

which  is  a  program  input 

4.  For  each  iteration  and  each  increment  compute  in  order; 

8?,  =  &?,i  +  (2-84) 


5.  Compute  Al  = 

6.  Update  ifj- with 

7.  Solve  quadratic  equation  of  Eqn(2-79)  (with  given  a,b,c  definitions)  for  ±6Aj.  If  roots 
are  complex,  return  to  step  2  and  arbitrarily  adjust  Al„ ,  which  changes  zU,]. 

8.  Choose  ±5Aj  based  on  which  value  yields  a  positive  0  in: 

=  89,  ±  8A,5i7,2 
0=(A^..  +  &7..)A<?i 

if  both  are  positive,  then  5A^=-c/b. 

9.  Update  the  displacement  and  loading  parameter  by: 

Mm  =  Mi  + 

AA,+i  =  AX,  4-  5X, 


(2-85) 


(2-86) 
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10.  Check  for  convergence.  If  no  ccmvergence  for  the  incremrat  yet,  return  to  stq)  2. 
Upon  convergence,  update  di^lacement  aiul  loading  parameter  for  next  incmnent; 


1 1.  CtHnpute  new  search  radius  for  next  increment: 

A/.  =  AC, 


-1 


(2-87) 


(2-88) 


where  is  user  provided  iteradon  estimate  and  N^j  is  the  number  of  iteratitms 
required  for  convergence  in  the  last  increment. 

12.  Coiiq)ute  loading  parameter  for  first  iteration  of  the  next  increment: 

AX,  =  ± 


(2-89) 


13.  Return  to  step  2  for  next  load  increment. 


Figure  2-12  Riks  Technique 
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2.8  Arch  GetMnetry  Definitions 


Before  moving  to  specific  proUems,  it  is  necessary  to  establish  criteria  to  categorize 
arches.  Each  arch  will  be  categorized  as  deep  or  shallow  and  thick  or  thin.  A  thick  arch  is 
defined  as  one  for  which  through-the-thickness  shear  becomes  significant  Through-the- 
thickness  shear  bectxnes  significant  when  soludrms  with  and  without  shear  differ  by  10  %. 
Huang  [16]  implies  that  thin  arches  have  h/i«l.  This  definition  is  inadequate  fin:  the 
current  problems.  An  arch  could  have  a  large  radius  of  curvature,  but  have  a  small  arc 
length.  In  this  case,  Huang  would  define  an  arch  as  thin  when  shear  is  a  major  factor.  In 
fact  flat  beams  would  all  be  classified  as  thin.  Our  definititm  needs  to  include  a  dimension 
to  account  for  the  arc  length  as  well  as  the  thickness.  The  definition  we  chose  is 
somewhat  arbitrary,  but  since  it  will  cmly  be  used  to  categorize  problems,  it  wUl  not  affect 

solutions.  We  will  consider  an  arch  thick  when: 

-<25  (2-90) 

h 

or  a  flat  beam  is  ctmsidered  thick  when: 

—  <25  (2-91) 

2h 

where  /  is  the  length  of  a  flat  beam. 
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The  second  geometric  parameter  for  classifying  an  arch  is  depth.  Depth  is  a  measure 
of  how  far  removed  an  arch  is  from  a  flat  beam.  Smith  [33]  states  that  a  shallow  shell  is 
one  with  S/c  :^0.3.  This  definition  would  wmk  well  for  the  current  {Hoblems,  but  we  seek 
a  depth  definition  that  incorporates  the  tuning  angle  in  a  more  direct  way.  Huang  [16] 
defined  a  depth  parameter,  X,  by: 


X  =  2^3(1- (2-92) 

Eqn(2-92)  is  limited  ro  a  «  1.  Many  of  the  deep  problems  have  large  tuning  angles 
making  this  definition  unusable.  Fung  [14]  uses  Eqn(2-92)  but  removes  the  angle 
limitation  such  that: 


X=^12(l-v=)^0|  (2-93) 

Fung  shows  that  S/h  is  an  appropriate  depth  parameter  for  shallow  shells,  but  that  Eqn(2- 
93)  is  appropriate  for  deeper  shells.  We  adapt  this  definiticHi  directly  to  arches.  We  will 
use  the  criteria  that  if  A.  >  8,  then  the  arch  is  considered  deep.  This  value  is  arbitrary  and 
was  chosen  to  match  problem  classification  in  other  publications.  Since  the  problems 
analyzed  here  will  be  loaded  in  bending,  the  laminate  value  of  V21  should  be  used  in  place 
of  v  for  a  composite  material.  These  definititms  are  used  in  chapter  HI  to  classify  the 
problems  so  that  the  reader  can  get  an  idea  as  to  the  complexity  of  each  problem  before 
examining  each  in  depth. 
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ni.  Discussion  and  Residts 


3.1  Clamped  Isotropic  Shallow  Thin  Arch 

The  first  family  of  problems  invdve  lar^  displacements  and  geometric  nonlinearity, 
but  do  not  experience  extremely  large  rotations  due  to  bending.  These  first  cases  are  used 
to  show  that  the  new  large  rotatkm  consideratkHis  haven't  corrupted  previous  results. 
Under  small  bending  rotations  (y  less  than  about  20  degrees),  die  current  results  diould 
match  Creaghan's  [8]  closely.  These  initial  problems  will  also  show  the  validity  of  the 
current  dieory  on  previously  verified  problems.  The  first  problem  considered  is  an 
isotnyic  arch  with  two  clanyed  boundary  ccmditions  loaded  by  a  single  concentrated  load 
at  the  crown.  The  exact  problem  geometry  and  properties  ate  shown  in  figure  3-1.  The 
problem  was  examined  by  Belytschko  and  Glaum  [4]  and  Creaghan  [8].  Each  attained 
equilibrium  solutions  past  geometric  collapse  ot  snap.  Creaghan  showed  comparisons 
using  small  bending  angles  to  the  2-D  siicylified  large  displacementAotadon  (SLR)  theory 
of  Palazotto  and  Dennis  [27].  No  differences  were  observed  between  Crea^an  and  the 
SLR  theory,  so  comparisons  here  are  made  widi  Clreaghan  and  Belytschko  and  Glaum 
only. 


l" 

E=1  e7psi 

nL 

a  =17.2  deg 

\  r 

^  r=113.114" 

\  1  W  > 

b=1" 

\  ® 

h=0.1875" 

1  =  0.075 

Figure  3-1  Clartyed  Qamped  Shallow  Thin  Arch 
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Tlw  problem  was  analyzed  widi  a  symmetiic  half  arch  model  with  20  elonents  and  % 
active  degrees  of  fireedmn.  As  seat  in  figure  3-2,  thae  is  little  or  no  discernible  difference 
between  Creaghan's  solution  and  the  present  solution.  Even  thou^  the  arch  expoiences 
vertical  displacements  in  excess  of  ten  times  its  thickness,  there  is  bending  rotation  of  only 
10  degrees  (as  measured  over  20%  of  the  beam).  The  small  angle  theory  used  in 
Creaghan's  bending  kinematics  is  a  99%  accurate  approximation  of  the  tangent  at  10 
degrees.  This  first  result  is  an  initial  confirmatitxi  that  the  present  theory  hasn’t  introduced 
any  gross  errors  in  the  program. 


Figure  3-2  Comparison  for  Clamped  Clamped  Shallow  Thin  Arch 


Belytschko  and  Glaum  use  an  updated  Lagrangian  corotatitmal  coordinate 
formulation.  They  embed  a  coordinate  system  in  an  element  to  track  average  rigid  body 
motion  during  deformation.  Unlike  a  total  Lagrangian  fcmnulation,  their  displacements 


are  dvided  into  rigid  body  motion  and  red  smictural  defofinatioii.  Bdytachkoand 
Glaum  use  standard  Euler-Bernoulli  beam  assuiq)tions  so  tiuu  cross  sectional  nonnals 
remain  straight  and  normal  (no  warping  due  to  transverse  shear).  They  also  neglect  many 
in-plane  nonlinear  strain  eiqnessions.  Using  the  current  nomenclature,  thdr  mid-plane 
strain  can  be  expressed  as: 


£2  =  v  +  — (^,2)*  +  rotation  term 
2 


(3-1) 


where  the  rotation  term  relates  the  cmotational  axes  and  the  arch  center  line.  Since  the 
current  formulation  is  a  total  Lagrangian,  there  is  no  conq>arable  term.  The  present  work 
retains  more  higher  order  mid-plane  strain  terms  as  shown  in  Eqn(2-31 )  fca* 

The  half  arch  analysis  using  the  current  model  shows  a  stiffer  structure  initially  than 
Belytschko  and  Glaum.  Figure  3-2  also  shows  Belytschko  and  Glaum  predicting  a  lower 
collapse  load  than  Creaghan  and  the  present  wmk.  The  higher  mder  in-plane  strain  terms 
accounts  for  the  stiffer  initial  response  and  higher  coll^se  load.  The  current  structure  is 
able  to  absorb  more  energy  befne  coUtyrse  because  of  the  inclusion  of  higher  order  strain 
terms.  After  structural  snap,  both  theories  unload  to  nearly  the  same  force,  but  at  different 
displacement  values.  This  post  collapse  softening  is  common  for  other  higher  raider  shell 
theories  when  compared  to  the  simpler  counter  parts.  Palazotto  and  Dennis  [27]  showed 
similar  behavior  when  evaluating  nonlinear  arches  and  craoparing  diem  to  lower  order 
theraies.  They  attribute  this  trend  to  higher  order  mid-plane  strain  representation. 


32  Clanged  Isotropic  Shallow  Thick  Arch 


The  second  problem  is  another  shallow  arch  with  two  clamped  end  supports  and  a 
concentrated  load  at  the  crown.  This  problem  is  moderately  thick  with  c/h  of  12.  The 
thicker  arch  implies  more  significance  of  the  through-the-thickness  shear  strain.  This 


problem  just  meets  the  criteria  for  a  thick  arch,  but  is  still  omsidered  shallow  as  the  arc 
length  is  short  (49  inches)  for  the  radius  ci  curvature  (1(X)  inches),  resulting  in  a  dq>th 
parameter  (X)  of  6.3.  Fbrthispfoblem,alargerq)aiingangle  would  be  necessary  before 
categmizing  the  arch  as  deep. 


Figure  3-3  Clamped  Clamped  Shallow  Thick  Arch 

Hiis  problem  was  also  examined  by  Belytschko  and  Glaum  [4].  They  show  an  exact 
solution  to  this  bending  problem  but  subject  to  Donnell  assumptions.  The  Donnell 
assumption  in  their  solution  means  that  membrane  (mid-plane)  rotation  effects  are 
neglected.  The  present  model  involved  a  half  symmetric  arch  with  20  elements  and  96 
active  degrees  of  freedom.  The  result  shown  in  figure  3-4  shows  a  very  good  con^arison 
with  Belytschko  and  Glaum. 
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Hgure  3-4  Oxnparison  for  Claflq)ed  Qamped  Shallow  Thick  Aich 


Even  though  the  Donnell  sdutkm  includes  shear,  this  proUem  acts  nxxe  like  a  flat 
beam  than  the  previous  proUenL  Since  the  load  displacement  curve  doesn't  exhibit  a 
limit  load,  there  is  no  instability  snapping  as  in  the  first  arch.  At  the  point  of  geometric 
inflection,  the  slc^  of  the  load  di^lacement  curve  changes,  but  die  load  never  decreases. 
The  entire  loading  path  is  staUe.  A  continuously  increasing  load  would  be  characteristic 
of  a  flat  beam  while  an  inflection  point  is  a  curved  arch  characteristic.  This  problem  is 
shallow  and  thick  enough  to  act  more  like  a  fUU  beam  than  like  an  arch.  If  this  arch  were 
deeper,  there  would  be  more  geometric  instability  evidenced  by  snapping.  The  arch 
expoienced  small  to  moderate  bending  rotatimis  of  16  degrees.  This  problem  again  is  a 
good  demonstration  the  code  for  a  modera^ly  difficult  problem. 
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33  Clamped  Isotropic  Thin  Straight  Beam 


The  final  problem  examined  in  the  small  rotation  area  is  a  flat  beam  elaizq)ed  at  both 
ends  with  a  ctmcentrated  transverse  load  at  the  center.  The  beam  is  isotn^  with 
geometry  details  shown  in  figure  3-5.  Mondkar  and  Powell  [23]  examined  this  problem 
using  a  Lagrangian  fixmulatitm  of  the  static  and  dynamic  req|)onse.  Strain  is  formed  in  a 
Lagrangian  system  and  includes  nonlinear  terms.  Mtmdkar  and  Powell  use  a  loful 
incrementing  Newton-Ralphstxi  iteration  scheme  similar  to  the  current  effort.  They 
neglected  all  out  (tf  plane  displacement  by  setting  Ptnsson's  ratio  to  zero. 


b=1jn 
h»:1/8  in 


P 


E=30,000  ksi 
V  =0 


Figure  3-5  Qanq)ed  Qanq)ed  Flat  Thin  Beam 

The  beam  was  modeled  using  a  symmetric  half  width  beam  with  20  elements  and  96 
active  degrees  of  fieedom.  Displacement  control  was  used  to  find  the  equilibrium 
solutions  which  are  displayed  in  figure  3-6.  For  stable  problems  like  this,  large 
displacement  increments  are  possible  with  little  variation  in  the  overall  results.  The 
solution  shown  in  figure  3-6  used  .05  inch  displacement  incrroients  which  is  rather  large 
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whm  compared  to  the  thickness.  Since  there  are  no  instabilities,  Riks  technique  gives 
identical  results  and  predicts  mly  one  equilibrium  point  for  a  ^)ecific  load.  Hgure  3^ 
shows  the  behavior  of  a  flat  beam  with  a  continuously  increasing  load  displacement  curve 
with  no  geometric  inflection.  The  Mondkar  and  Powell  data  is  shown  as  ^lecific  points 
whidi  are  equililnium  displacements  they  found  for  various  loads.  The  vertical 
di^lacements  are  moderate  at  a  maximum  of  four  times  the  thickness  and  snudl  bending 
rotations  of  4  degrees.  The  results  compare  well  with  the  Mondkar  and  Powell  solution. 
The  rotations  ate  small,  but  this  adds  confidence  to  die  accuracy  of  the  code  for  simple 
nonlinear  problems. 


Figure  3-6  Equilibrium  Curve  and  Cknnparison  for  Qamped  Gaiiqied  Thin  Beam 


This  problem  concludes  the  initial  family  of  small  rotation  problems.  The  present 
theory  provided  reasonable  results  with  little  difference  (except  for  Belytschko  and  Glaum 
solution  in  section  3.1)  over  small  angle  kinematic  theories.  Besides  ccMnparing  well  with 
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other  puUished  data,  these  problem  provided  a  good  initial  check  of  the  thewy  and  its 
implementation  in  the  code.  The  next  group  ai  problems  is  designed  to  give  mote 
geometric  nonlinearity  than  the  first  three  with  good  sdutions  at  large  bolding  angles  as 
the  final  goal 

3.4  Cantilever  Isotropic  Tlun  Beam 

The  first  large  rotation  problem  examined  is  a  cantilevered  isotn^ic  straight  beam 
subjected  to  a  concentrated  transverse  end  load.  Figure  3-7  shows  the  problem  geometry 
and  material  properties  used. 


b=1  m 

h=0.1  m 

E=1.2kN/mm  ^ 

7 

o 

II 

> 

Figure  3-7  Cantilever  Isotropic  Beam 


This  problem  was  examined  Hsiao  and  ifou  [IS].  Their  woik  centered  on  removing 
small  rotation  restiicticms  between  increments  in  an  iqxlated  Lagrangian  formulation. 

They  utilize  a  corotadonal  formulation  system  in  which  rigid  body  motion  and 
deformations  are  separated  by  attaching  a  comdinate  system  to  an  element  during  loading. 
The  cunent  wmk  is  to  incoqpmate  large  bending  rotations  in  a  total  Lagrangian  Systran 
making  their  updated  Lagrangian  large  rotation  effort  of  particular  interest  Hsiao  and 
Hou  base  their  analysis  on  three  assumptions: 

1.  Euler-Bemoulli  assumptimis  are  valid  (plane  sections  remain  plane  -  no  warping). 

2.  Membrane  strain  (strain  at  the  beam  mid-plane)  is  amstant  alrmg  the  beam. 

3.  Axial  strain  is  small. 

The  first  two  assumptions  differ  from  those  used  in  the  current  tiieory.  The  first 
assumption  neglects  through-the-thickness  shear  strain.  Ifowever,  since  this  beam  is  thin 
(]/2h=  50),  transverse  shear  should  be  small.  Hieir  sectmd  assumption  of  OHistant 
membrane  strain  is  also  in  conflict  with  the  present  theory.  Eqn(2-30)  and  Eqn(2-31) 
show  in-plane  strain  which  includes  many  higher  order  terms  such  that  the  membrane 
strain  varies  along  the  length  and  tiirough-the-thickness.  The  third  assuiiq)tion  Hsiao  and 
H(xi  make  is  that  the  strains  are  small  which  is  compatible  with  the  present  work.  This 
assumptira  allows  the  linear  elastic  constitutive  relationships  for  stress  and  strain  to  be 
used. 
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Hgure  3-8  End  Displacement  ftv  Cantilever  Isotropic  Beam 


The  analysis  utilized  40  elements  (200  active  degrees  of  freedom)  and  displacement 
ctmtrol  with  displacement  increments  of  the  cantilever  end  of  0.15  inches.  Figure  3-8 
shows  the  current  theory  correlating  well  with  Hsiao  and  Hou  up  to  4.2  meters  of  vertical 
end  deflection.  This  displacement  is  42  times  the  beam  thickness  making  diis  a  highly 
nmilinear  soluticm.  The  present  solution  diverges  from  Hsiao  and  Hou  between  4.2  and 
5.0  meters  of  end  displacement.  Upon  examination  of  bending  rotations  in  that  area,  one 
finds  that  y  goes  from  37  degrees  at  h«=4.2  m  to  58  degrees  at  h«=5.0  m.  Li  the  range  of 
bending  angles  over  approximately  50  degrees,  the  assumpfim  on  constant  vertical 
displacement  through-the-thickness  causes  in-plane  displacements  to  get  large  as  shown  in 
chapter  n  due  to  incorporation  of  the  tangent  function.  As  \|r  approaches  90  degrees,  the 
in-plane  displacements  become  infinite.  This  explains  the  inconsistency  past  4.2m  of 
deflection.  The  solution  is  within  10%  of  the  Hsiao  and  Hou  solution  up  to  40  degrees  of 
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bending  rotation.  This  jmjUems  gives  the  first  indication  as  ro  the  bending  limits  of  the 
current  theory.  The  structural  softening  exhibited  at  large  rotatitHi  was  e}q)aienced  by 
Creaghan  [8],  but  at  a  much  lower  rotation  of  24  degrees.  It  will  be  shown  in  sections  3.6 
and  3. 10  that  including  the  tangent  function  in  the  kinematics  has  pushed  this  softening  to 
higher  load  and  displacement  values  (as  compared  to  Creaghan)  making  it  a  valuable 
addition. 

3-5  Cantilever  Isotropic  Beam  with  Tip  Moment 

This  problem  is  a  thin  isotropic  cantilevered  beam  with  an  external  end  HKxnent 
Figure  3-9  shows  this  beam  which  was  analyred  by  Epstein  and  Murray  [12].  No  cross 
section  dimensions  were  specified,  so  a  rectangular  geometry  was  used  with  the 
dimensions  to  satisfy  the  area  and  moment  of  inertia  requirements.  The  resulting  beam  is 
very  thin  (0.0346  in)  and  wide  (28.9  in). 
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b=28.9  in 

h  =  .03464  in 

Figure  3-9  Cantilevered  Isotropic  Beam  with  Tip  Moment 
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Epstein  and  Murray  use  a  corotational  total  Lagrangian  formulation  with  majm’  beam 
theory  simplifications.  They  neglect  through-the-thickness  shear  strain,  but  it  diould  not 
be  significant  for  this  problem  because  the  cross  section  is  thin.  They  retain  only  one 
strain  component  which  can  be  exjnessed  using  die  current  notation  as: 

Ei  =  (l-  K2)^^v,2  +  |(v,^  +  w,*) J  (3-2) 


where  k  is  the  beam  curvature.  The  last  term  of  Eqn(3-2)  [1/2]  is  a  result  of  finding  the 
Green  strain  with  the  no  warping  assumptions  they  used.  Epstein  and  Murray  use  the 
internal  virtual  work  principle  while  keeping  the  curvature  exact  (even  for  large  strains). 
The  physical  curvature,  k,  is  defined  as  the  rate  of  change  of  the  mid-plane  normal  vectm* 
while  moving  along  the  beam.  They  make  no  limiting  tqiproximations  outside  of  the  beam 
assumptions.  The  resulting  equilibrium  equations  are: 


T  cos(<i>) + S  sin(<l))  =  (2e +l)N 


(3-3) 


where  T  is  an  externally  applied  axial  force,  5  is  an  externally  applied  transverse  force,  M 
is  a  resulting  internal  bending  moment,  ^  is  an  internal  resulting  force,  <|)  is  the  rotation 
angle  of  the  mid-plane  tangent  at  an  end  and  e  is  the  Green  strain  of  the  mid-plane  (z=0  in 
Eqn(3-2)).  Epstein  and  Murray  use  exact  trigonometric  functions  to  describe  bending 
angle  effects  which  enabled  them  to  wrap  the  beam  into  a  complete  circle.  The  biggest 
limitation  comes  from  the  simple  beam  approximations.  The  current  theory  is  higher  order 
in  strain,  but  uses  geometric  approximations  and  assumptions  to  simplify  the  equations. 
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The  resulting  mranent  was  calculated  using: 


(3-4; 


where  the  shape  fiincticms  of  Eqn(2-S8)  were  used  to  find  \|r,2  ^  ^  beam  end.  Figure  3- 
10  shows  the  comparison  between  the  present  thecffy,  Crea^ian  and  Epstein  and  Murray 
fen*  vertical  deflection,  while  figure  3-1 1  shows  die  compaiistMi  between  current  results 
and  Epstein  and  Murray  for  horizcMital  displacement  Creaghan's  data  was  post  processed 
using  Eqn(3-4)  with  the  results  shown  in  figure  3-10. 


3- 


Figure  3-11  Cantilever  Beam  witfi  Tip  Mmnent  -  HcHizontal  Displacement 

Creaghan  showed  initial  divergence  fix>m  Epstein  and  Murray  at  5  in-lb  while  the 
ciurent  solution  starts  to  diverge  at  9  in-lb  of  bending  moment  At  this  pdnt  die  bending 
rotations  are  40  degrees  over  20  percent  of  the  beam  end.  This  is  nearly  the  same  rotation 
angle  where  the  previous  problem  diverged.  The  horizontal  displacements  compared  well 
until  7  in-lb,  where  the  current  solutitm  bectnnes  stiffer  than  Epstein  and  Muiray.  The 
present  solution  follows  the  same  trend  as  Creaghan,  but  stays  flexible  to  higher 
displacements. 

3.6  Cantilevered  Composite  Beam  with  End  Load 
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This  problem  consists  of  a  cantilevered  cmnposite  beam  with  a  concentrated  transverse 
load  applied  at  the  free  end.  The  rectangular  beam  is  constructed  (^layered  lamina  made 
fixm  AS4-3S01-6  grq)hite  epoxy  in  various  orientations.  This  problem  is  of  particular 
interest  as  Minguet  and  Dugundji  [22]  present  actual  test  data  from  a  ctunposite  helkx^ter 
rotor  blade  test  and  analysis  program.  Minguet  and  Dugundji  use  an  updated  Lagrangian 
formulation  based  on  Euler  angles  to  track  element  rigid  body  modem  reladve  to  the 
original  cocHdinate  system.  They  include  constant  transverse  shear  strain,  mid-plane 
extensibility,  and  axial/shear  coupling,  making  their  theory  close  to  the  present  and  mcxne 
advanced  than  most  other  beam  theories.  As  already  discussed,  the  current  work  is  limited 
ro  balanced  symmetric  composite  lay  ups,  thoefote,  the  [0/90]3,  laminate  is  analyzed.  The 
lamina  material  properties  are:  E(=142  GPa,  E2=9.8  GPa,  Gi2=Gi3=6  GPa,  G23=4.8  GPa, 
and  Vj2-  .3.  The  direction  designators  here  ctnrespond  to  the  prime  system  in  figure  2-8 
(material  axes). 


Deflections  measured  here  (50mm  from  tip) 

P 

b=  30mm 

1^^ - L=550mm  - i 

AS4-3501-6  graphite  epoxy 

h=.124mm/ply 

Figure  3-12  Cantilever  Composite  Beam 


Minguet  and  Dugundji  tested  the  beam  in  figure  3-12  by  stacking  various  weights  on 
the  tip  and  measuring  vertical  and  horizontal  displacements  at  a  point  located  SOmm  from 
the  beam  end.  The  results  in  figure  3-13  and  tiguie  3-14  show  data  points  from  the  actual 


tests.  The  problem  was  analyzed  using  a  full  beam  model  with  33  elraiems  and  165  active 
degrees  of  fieedom.  Displacement  control  was  used  to  increment  tip  votical  deflection 


and  iterate  to  load  equilibrium  solutions. 


Figure  3-13  Vertical  Displacement  Con:q}arison  for  Cantilever  Composite  Beam 


Hgure  3-14  Horizontal  Diqdacement  Coinparison  for  Cantilever  CompositB  Beam 


As  seen  in  figures  3-13  and  3-14,  the  present  theory  fits  the  test  data  mudi  more 
accurately  than  before  large  rotation  considerations  were  included  The  cuirent  results 
closely  match  the  test  data  all  the  way  to  vatk:al  deflections  134  times  the  laminate 
thickness.  Creaghan  showed  10%  error  at  O.lSm  of  vertical  deflectkm  while  the  current 
solution  shows  improvement  to  10%  error  at  0.22m  of  vertical  di^lacement  At  40 
degrees  of  bending  rotation,  the  present  results  differ  from  the  test  data  by  15%  while 
Creaghan  differed  by  50%  at  the  same  place.  This  shows  a  significant  solution 
improvonent  by  incorporating  the  tangent  function  in  the  kinematics.  All  of  the  current 
results  compare  well  with  test  data  until  application  of  the  400  gram  weight  At  this  load, 
the  cuirent  model  experiences  structural  softening  again.  There  appears  to  be  a  point  in 
these  problems  where  the  bending  angle  relationships  start  to  break  down.  The  softening 
is  much  more  pronounced  in  the  horizontal  displacement  results.  All  of  the  large  rotation 
problems  so  far  start  to  exhibit  incorrect  behavior  beyond  40  degrees  of  bending  rotation. 
Each  of  the  large  rotation  problems  presented  so  far  have  had  at  least  one  end  that  is 
unconstrained  As  will  be  shown  later  in  this  chapter,  problems  with  more  bending 
constraints  at  the  boundaries  will  give  good  solutions  for  about  another  5  degrees  of 
rotation.  This  problem  proved  to  be  an  excellent  test  for  the  current  formulation  by 
comparing  directly  to  actual  test  data  of  a  ccxnposite  beam. 


3.7  Hinged  Isotropic  Shallow  Thick  Arch 

The  next  problem  is  a  shallow  thick  isotropic  arch  with  both  ends  pinned.  It  has  been 
evaluated  by  Sabir  and  Lock  [31]  and  Creaghan  [8].  This  arch  is  interesting  because  it 
experiences  snap  through  and  snap  back  limit  points.  As  displacement  control  caiuiot 
capture  snap  back  characteristics  (section  2-6),  a  Riks  solution  is  more  useful  to  capture 
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limit  pc^ts  and  possible  equilibrium  paths.  The  arch  is  relatively  thidc  (c/h  =  14.S) 
making  transverse  shear  significanL  The  arch  details  are  shown  in  figure  3- IS. 


Figure  3-15  Hinged  Hinged  Shallow  Thick  Arch 

Sabir  and  Lock  have  a  more  advanced  representation  for  £2  than  noost  of  the  otho: 
theories.  They  represent  longitudinal  strain  as: 

^2  =  V,2  +  y  +  ^  W,2  -  Z^W,22  -  ^  j  (3-5) 

Eqn(3-5)  contains  a  thickness  dependence  for  the  in-plane  strain.  The  current  theory 
contains  many  higher  order  z  strain  terms,  while  others  neglect  these  terms  totally.  Sabir 
aiKi  Lock  also  neglect  transverse  shear  strain  which  is  present  in  this  problem. 

The  results  for  a  half  arch  symmetric  model  using  Riks  solution  technique  are  presented 
in  figure  3-16.  Analysis  points  from  Sabir  and  Lock  are  shown.  No  attempt  was  made  to 
connect  their  points  for  the  simple  reason  of  chart  readability.  The  current  solution 
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follows  Creaghan  and  Sabir  &  Lock  through  fow  horizontal  and  two  vertical  lunit  poiitts. 
As  mentioned,  Sabir  and  Lock  neglect  transverse  shear  which  explains  the  sligltfly  softer 
solution  at  larger  di^lacements  (point  Q.  At  p<^t  C,  transverse  shear  strain  is  around  2 
degrees.  As  shown  in  chapter  IL  the  sl(^  of  the  elastic  curve  and  die  bending  angle 
y  differ  by  this  shear  angle  This  deformation  contributes  to  die  overall  di^lacemmt 
making  the  present  solution  slighdy  softer. 


Figure  3-16  Equilibrium  Path  fo-  Hinged  Hinged  Shallow  Thick  Arch 

Figure  3-16  doesn't  necessarily  represent  a  physically  realistic  static  load  displacement 
path,  rather  it  shows  possible  equilibrium  states  even  during  dynamic  events  (snapping). 
Classical  load  control  could  not  produce  such  a  curve  as  more  than  one  displacement 
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exists  for  a  single  load.  The  same  is  true  for  the  di^lacemrat  control  excqrt  thne  is  mote 
than  one  load  for  a  given  displacement.  Load  control  would  jump  from  ptwt  E  to  F 
instantaneously.  Displacement  control  would  fdlow  a  path  al(»g  ptmts  E  A  D  without 
capturing  the  other  points.  This  problem  was  solved  using  di^lacement  control  and  the 
results  are  shown  with  Riks  mediod  to  demonstrate  this  effect  It  is  evident  in  figure  3-17 
that  the  snap  back  points  are  not  captured  by  displacement  contnd. 


Figure  3-17  Displacement  Control  vs  Riks  Method 


The  loading  padi  in  figure  3-16  and  deformed  shapes  in  figure  3-18  provide  a  better 


understanding  of  the  physical  meaning  of  such  a  strange  equilibrium  curve.  As  the  arch 
goes  through  its  first  snap  at  horizontal  limit  pdnt  E  in  figure  3-16,  the  structure  collapses 
and  the  load  decreases  until  the  sense  changes  to  an  upward  load.  Point  A  shows  when 


dus  upward  loading  begins.  As  we  continue  around  the  curve  toward  ptnnt  B,  the 
equilibrium  curve  shows  load  and  deflectkm  decreasing.  The  defonned  sluqw  (rf  B  in 
figure  3-18  cmifirms  that  the  crown  deflection  is  less  than  for  point  A.  This  unloading  is  a 
dynamic  |rfienomena  which  occurs  neariy  instantaneously  as  the  arch  collapses  and  inverts. 
As  displacement  is  decreasing,  the  magnitude  of  the  iq>ward  force  to  attain  equilibrium 
decreases  also  until  the  second  hcarizontal  limit  pc^t.  The  area  near  point  B  is  typical 
showing  increasing  load  with  decreasing  displacement.  The  process  is  once  again  reversed 
through  another  snap  and  sheds  load  until  point  C.  Now  the  structure  once  again  becomes 
stable  and  will  start  to  behave  with  positive  displacements  with  positive  loads.  At  point  D, 
all  the  curvatures  are  reversed  fiom  the  original  configuration  making  it  stable  in  an 
inverted  state.  Note,  the  deflected  shapes  are  not  drawn  to  scale.  Although  the  problem 
curvature  has  been  exaggerated  to  more  easily  show  load  effects,  their  relationship  to  the 
original  shape  is  correct 


Figure  3-18  Hinged  Hinged  Shallow  Arch  Defonned  Shapes 

Since  this  problem  has  centered  on  Riks  solutions,  it  is  appropriate  to  briefly  discuss 
the  practical  application  of  Riks  method.  The  technique  can  be  difficult  to  correctly  get 
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started  for  a  particular  inoblem,  Init  once  a  Riks  soludcm  is  achieved,  the  results  are 
generally  excellent  The  easiest  way  to  start  a  new  Riks  solution  is  to  first  use  a 
displacement  control  solution.  This  provides  an  indication  of  the  loads  and  smne  oi  dw 
snap  or  limit  points  that  may  exist  Riks  technique  is  sensitive  to  loading  parameters.  It  is 
necessary  to  have  accurate  load  and  load  constants  for  good  Riks  soluticms.  Displacement 
control  shows  the  load  displacement  trend  and  magnitudes  of  each.  In  areas  of  an 
equilibrium  curve  that  can  be  captured  by  both  techniques,  the  results  are  nearly  identical. 
Although  the  estimate  of  iterations  needed  per  increment,  N,,  is  an  integer,  in  practice, 
using  a  value  that  is  not  a  round  number  wm-ks  better.  N,  is  usually  at  least  2  for  problems 
that  converge  easily,  such  as  the  current  problem  where  N,  was  2.5.  N,  could  be  as  large 
as  4  or  5  for  more  difficult  problems,  but  it  is  rarely  higher.  N,  was  4.5  for  a  deep  arch 
problem  in  section  3-10.  M,  is  the  maximum  load  increment  fin*  a  particular  iteration. 

This  is  a  good  parameter  to  vary  significantly  fix*  difficult  problems.  Displacement  ctMitrol 
solutions  will  also  help  select  an  initial  value  of  M,.  Displacement  control  will  help 
determine  die  size  of  the  external  load(s)  to  apply  for  a  Riks  solution.  Too  large  or  small 
of  an  external  load  will  provide  poor  or  nonconvergent  solutions.  A  reasonable  external 
load  is  critical  to  a  good  Riks  solution.  The  final  significant  parameter  fix'  a  good  Riks 
solution  is  the  convergence  tolerance,  generally  0.01,  but  it  can  be  varied  to  help  a 
particular  solution  converge.  Care  should  be  taken  not  to  loosen  this  tolerance  too  much 
as  solutions  can  converge  to  incorrect  values  only  to  diverge  at  a  later  increment.  The 
initial  load  parameter  (A.J  is  generally  set  to  0.1.  Solutions  don't  appear  to  be  sensitive  to 
this,  but  it  could  be  varied  if  getting  convergence  on  the  first  increment  is  difficult.  The 
above  ideas  are  only  suggestions  based  on  the  author's  experience.  Basically,  the  author 
suggests  getting  a  general  understanding  of  the  loads  and  displacements,  then  vary  Riks 
specific  parameters.  Varying  the  load  and  Riks  parameters  at  the  same  time  can  prove 
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fiustiating  by  gjving  incofrect  sidutkxis  for  secfmn^  m  Becune  evciy  problem 

is  differait,  «q)eriitientation  is  necessary  when  using  Riks  technique. 


5.5  Deep  Hinged  Isotropic  Thin  Arch 


The  next  pioUem  is  designed  to  produce  large  diq)lacraients  and  large  holding 
rotadcHis.  The  deep  arch  in  figure  3-19  has  two  pinned  ends  and  is  loaded  transversely  by 
a  concentrated  load  at  the  crown.  The  arch  has  been  investigated  by  Huddel^on  [17], 
Palazotto  and  Dennis  [27]  and  Creaghan  [8].  Creaghan  made  c(»q)arisons  to  SLR  shell 
theory  of  Palazotto  and  Dennis  [27].  The  differences  were  negligiUe,  so  the  current 
theory  will  be  shown  with  Creaghan  beam  sdutims,  Huddelstcm,  and  a  Donnell  shell 
analysis  (27]. 
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Huddelston  [17]  presents  closed  form  solutions  to  arches  with  varying  degrees  oi  mid- 
plane  extensibility.  He  defines  the  degree  of  extensibility  of  an  arch  mid-plane  by  a  factor 


C  = 


I 

A(2c)^ 


1 

(3-6) 


wh»«  I  is  the  moment  of  inertia.  A  is  the  cross  sectional  area,  and  c  is  tlw  dimension 
shown  in  figure  3-19.  The  inextensible  solution  is  when  C=0.  When  C=0.01,  tiie  mid¬ 
plane  is  allowed  to  stretch  or  compress.  In  this  case,  the  arch  is  initially  in  con^ression 
(until  course)  making  the  inextensible  solutioi  the  stiffest  The  problem  was  analyzed 
with  the  current  theory  using  a  symmetric  half  arch  model  with  30  elements  aixl  150  active 
degrees  of  ficedonL  Displacement  control  and  Riks  method  produced  nearly  identical 
results.  Figure  3-20  shows  the  cor  <parisons  of  a  Donnell  shell  analysis,  Creaghan,  two 
Huddelston  extensibility  solutions,  and  the  current  theory. 


Figure  3-20  Load  vs  Vertical  Displacement  fw  Hinged  Hinged  Deep  Arch 
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The  current  solution  has  produced  a  much  higher  collapse  load  by  inavporating  the 
large  rotation  kinematics.  The  current  theory  has  also  shifted  the  results  toward  an 
inextensible  Huddelston  solution  and  a  Doni^ll  shell  solution.  This  is  an  expected  result 
since  middle  surface  extensibility  is  seen  to  increase  arch  deflection  untter  load.  The  larger 
rotation  theory  is  allowing  more  energy  to  go  into  cross  sectional  bending  prior  to 
collapse  leaving  less  energy  for  mid-plane  extensicm.  This  result  becomes  nKxe 
pronounced  as  rotations  get  large.  This  is  observed  when  the  current  and  Creaghan 
solutions  start  out  close  together  but  diverge  as  displacements  become  large.  When  the 
displacements  do  become  large,  the  current  theory  tends  more  to  an  inextensible  arch. 

The  peak  load  has  increased  by  nearly  30%  over  Creaghan's  solution.  Donnell  shell  theory 
has  a  much  lower  order  mid-plane  strain  representation  than  the  current  work  [27].  The 
form  of  the  post  collapse  response  for  the  current  work  is  different  than  Huddelston  and 
Donnell  shell  theory,  due  to  the  higher  order  representation  of  the  mid-surface 
deformation  [27].  The  deformed  shapes  of  the  arch  right  at  collapse  and  post-coUapse  are 
shown  in  figure  3-21.  Local  snapping  is  olwerved  on  either  side  of  the  load.  The  load 
doesn't  have  any  horizontal  displacement  since  the  boundary  conditions  are  symmetric. 
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Overall,  adding  large  rotation  theory  has  noade  the  response  mcne  like  an  inextoisible 
or  a  lower  order  extensibility  solution.  Tlie  bending  rotations  in  this  problem  reached  46 
degrees  over  15%  of  the  arch.  This  large  rotation  raises  the  question  of  shear  effects  at 
large  rotations.  In  chapter  II,  small  angle  kinematic  approximations  for  bending  were  used 
to  be  ccHisistent  with  linear  shear  strain.  If  instead  of  making  those  approximations,  the 
displacement  equations  of  Eqns(2-18)  (which  include  the  tangent  function)  are  used  to 
calculate  shear  strain,  bending  locking  occurs.  Figure  3-22  shows  the  current  solution 
with  and  without  the  snudl  angle  approximation  used  in  the  shear  strain  relaticxis. 


Vertical  Displacement  On) 


Figure  3-22  Shear  Locking  Deep  Hinged  Hinged  Arch 


If  the  tangent  function  (Eqns(2-18))  is  included  in  the  shear  displacement  equation, 
many  of  the  structures  analyzed  (not  all)  exhibit  "locking"  behavior.  For  problems  where 
the  bending  angle  is  significant  (greater  than  approximately  25  degrees),  locking  can 


occur.  A  coUi^se  load  is  never  reached  i  flguie  3-22  as  the  structure  becomes  very  stiff. 
Using  large  rotation  relationships  in  the  shear  equation  place  displacement  gradient  values 
(y)  into  the  constant  coefficient  stiffness  matrix  K.  This  makes  K  a  nonlinear  ftmctkm  of 
displacement  and  causes  the  locking  shown  at  large  rotations. 


3.9  Hinged  Clamped  Isotropic  Very  Deep  Arch  #7 

The  final  two  problems  examined  proved  to  be  the  biggest  challenge  for  the  current 
theory.  The  first  is  a  very  deep  arch  with  one  end  pinned  and  the  other  end  clamped.  It  is 
loaded  at  the  crown  with  a  transverse  concentrated  load.  As  shown  in  figure  3-23,  this 
problem  has  a  very  large  opening  angle  (240  degrees).  The  deep  arch  coupled  with  the 
unsymmetrical  boundary  conditions  make  this  a  difficult  problem. 
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Figure  3-23  Very  Deep  Hinged  Clamped  Arch  #1 


3-27 


Karamanlidis,  Honecker  and  Knothe  (KJl&K)  [18]  studied  this  pn^lem  using  an 
updated  Lagrangian  fcmnulation.  They  inanporate  correction  terms  to  an  incremental 
energy  function  to  keep  the  simulation  close  to  the  true  solution.  The  ejections  ctxne 
from  stress  equilibrium  and  compatibility.  KJH&K  include  in-plane  strain  but  neglect  all 
other  strain  components.  Since  this  arch  is  tiiin  (0.223  in),  transverse  shear  is  probably  not 
significant.  Only  linear  strain  terms  in  z  are  retained  and  shallow  arch  assun^tions  are 
used  for  the  incremental  strain  relations.  Since  diey  use  an  incremental  approach 
(assuming  the  increments  are  small),  shallow  approximations  are  adequate. 

This  problem  was  initially  analyzed  using  a  full  arch  model  with  40  elements  and  198 
active  degrees  of  freedom.  As  the  arch  length  is  418.9  inches,  this  appears  to  be  a  coarse 
mesh.  The  results  of  this  analysis  are  oxnpared  with  K  Jl&K  in  figure  3-24. 
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Figure  3-24  Mesh  Refinement  Very  Deep  Hinged  Clamped  Arch  #1 
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The  coarse  mesh  solution  becomes  unstaUe  near  31  inches  of  crown  vertical  displacement 
BeycHid  this  point  the  results  look  very  questicMiable.  To  further  examine  the  respmise, 
the  deformed  shapes  of  the  coarse  mesh  noodel  are  plotted  in  figure  3-25.  When  the  load 
starts  to  drop  off,  elements  near  die  hinged  boundary  will  "kink"  over.  They  seem  to 
experience  a  large  amount  of  motion  in  a  single  displacement  increment  If  the  structure 
continues  to  defcxm  past  3 1  inches,  multiple  elements  kink  until  49  inches.  Then  the  arch 
(Mice  again  is  able  to  pick  up  load,  but  the  boundary  condition  has  changed  radically 
making  it  a  new  physical  problem.  The  results  is  this  area  of  the  load  displacement  curve 
are  not  physically  correct 


Figure  3-25  Deformed  Shapes  Showing  Element  Kinking  for  Very  Deep  Hinged 

Clamped  Arch 
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The  defixmed  shapes  of  the  elements  are  shown  as  straight  lines,  but  are  actually 
formed  by  the  element  shape  functions  and  the  values  of  the  element  degrees  of  freetknn  at 
a  particular  deformation  state.  Figure  3-25  was  produced  by  drawing  straight  lines 
between  nodal  displacement  coordinates  at  different  deftxmation  suues.  Feeling  that  the 
poor  results  may  be  due  to  the  coarseness  of  the  mesh,  numerous  refined  meshes  were 
generated.  The  refined  mesh  results  in  figure  3-24  are  based  on  a  170  element  model  (848 
active  degrees  of  freedom)  with  130  of  the  elements  placed  in  the  first  40  inches  near  the 
pinned  boundary.  The  refined  solution  follows  the  same  trend  as  the  coarse  mesh,  but  fails 
to  obtain  a  convergent  solution  after  31  inctes  of  vertical  deflection.  No  element  kinking 
occurred  with  the  refined  mesh  and  all  the  defcxmed  shapes  remained  snK>odi  through  out 
the  loading.  All  of  the  solutions  shown  were  generated  using  displacement  control.  In  an 
attempt  to  ensure  that  this  limit  point  wasn't  a  snap  back  point  that  displacement  control 
couldn't  capture,  various  displacement  "jumps"  were  attempted  to  traverse  this  point.  All 
attempts  to  cross  this  point  with  a  refined  n»sh  failed  and  resulted  in  non  convergent 
solutions.  Riks  technique  failed  at  the  same  point  and  actually  started  to  reverse  the 
loading  (this  is  shown  in  detail  in  the  next  problem). 

With  confidence  that  the  limit  point  wasn't  just  a  snap  back  point  unable  to  be  captured 
by  displacement  control,  the  code  was  modified  to  calculate  the  internal  strain  energy  in  an 
element  using  the  relationship  from  chapter  II: 


(2-56) 


The  details  of  how  the  energy  calculations  were  conducted  (including  integration)  are 
found  in  {q)pendix  A. 

The  internal  strain  energy  of  elements  near  the  pinned  boundary  showed  a  smooth 
increase  until  reaching  the  limit  point  in  figure  3-24.  At  that  point,  these  elements  showed 
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an  instantaneous  eneigy  increase  by  oniers  niagnitude  in  many  cases.  Eletnoits  away 
finmn  the  pinned  boundary  maintained  a  relatively  smooth  energy  increase  throughout  the 
loading.  Figure  3-26  shows  the  strain  energy  vs  vertical  di^lacement  of  the  load  for  a 
typical  element  near  the  pinned  boundary  (one  diat  kinked)  and  an  element  well  removed 
for  the  coarse  mesh  solution.  Although  they  need  not  have  similar  values,  they  should 
follow  the  same  smooth  trend  for  a  properly  posed  problem. 


Figure  3-26  Strain  Energy  for  Typical  Elements 


It  is  evident  that  the  elements  do  not  follow  the  same  trends  and  that  an  extreme 
increase  in  the  strain  energy  in  a  single  displacement  increment  is  not  physically  realistic. 
This  energy  jump  was  experienced  in  elements  near  the  pinned  end  for  both  the  coarse  and 
refined  mesh  models.  The  structure  now  ccmtains  an  unrealistic  amount  of  energy  which 
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points  to  a  numerical  jnoblem  probably  stonming  from  the  elemoit  itself.  As  the  energy 
builds  rapidly  at  one  end  of  the  arch,  the  energy  continues  to  increase  elsewlwie  in  the 
structure  at  a  "normal"  rate.  There  is  no  energy  release  to  acctnmt  for  the  nq;>id  growth  at 
the  pinned  end,  yet  the  work  of  the  concentrated  force  is  the  only  energy  addition  entering 
the  system.  Rotations  at  the  pinned  end  are  relatively  large  at  kinking  (60  degrees)  and 
are  the  major  contributor  to  the  energy  Jump.  The  coarse  mesh  model  convCTged  to  a 
solution  (an  incorrect  one)  after  the  limit  point  while  the  refined  mesh  model  didn't 
Since  a  majority  of  the  refined  mesh  elements  are  placed  in  an  area  of  strain  enogy 
instability,  they  occupy  a  majority  of  the  global  stiffness  matrix  entries.  This  explains  why 
the  refined  mesh  would  not  converge  to  a  solution  where  the  coarse  mesh  did.  This 
implies  a  numerical  problem  with  the  equations  that  the  model  develq;)s  for  the  iterative 
solution.  To  further  confirm  this  hypothesis,  the  global  stiffness  matrix  was  examined 
throughout  the  loading  cycle.  As  the  Newton-Ralphson  technique  tried  to  find  solutions 
at  this  limit  point  (iterating  load  for  a  specific  displacement),  some  values  on  the  diagtxial 
of  the  global  stiffness  matrix  became  negative,  confirming  that  the  problem  is  no  longer 
being  physically  modeled  ccmtectly.  A  negative  diagonal  stiffness  entry  inq>lies  that  a 
negative  displacement  takes  place  from  a  positive  load  application  which  is  not  possible 
for  a  finite  element  potential  energy  model.  Hie  negative  diagonal  entries  were  of  the 
same  order  of  magnitude  as  other  stiffness  values.  These  entries  were  not  isolated  to 
specific  types  of  degrees  of  fieedom,  but  appeared  sporadicaUy  in  many  places.  Cook  [7] 
states  that  any  negative  or  zero  stiffness  entry  on  the  diagonal  implies  an  unstable 
structure.  As  the  Newton-Ralphson  solver  tries  to  attain  increment  convergence  by 
iterating,  many  stiffness  entries  for  elements  near  the  pinned  end  became  much  larger  than 
for  the  other  elements.  This  has  the  same  effect  as  placing  stiff  and  compliant  members 
next  to  each  other.  Cook  [7]  also  shows  that  very  stiff  members  attached  to  compliant 
elements  can  cause  numerical  instability. 
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These  energy  related  [HoUems  stem  from  the  large  holding  rotatkms  etqterienoed  at 
the  hinged  end  due  to  the  unsymmetrical  boundary  conditions.  Each  elonent  comains  only 
two  bending  degrees  of  freedcxn,  and  they  are  interpolated  linearly.  This  is  much  too 
crude  for  such  lai^e  angles.  The  proUem  could  be  improved  by  adding  more  bending 
degrees  of  freedom  and  using  a  higher  order  interpolation  function.  C  shape  functions 
would  also  help  to  provide  sk^  continuity  to  y  which  isn't  currently  inesent.  For 

example,  at  Idnldng  of  the  coarse  mesh,  the  second  element  from  the  pinned  end  has 
y,^  =  -0.1 1207  and  the  adjacent  element  has  y,^  =  0.012455.  The  rates  of  change  of  the 

bending  angle  is  discontinuous  at  their  common  node.  Bending  slope  continuity  would 
help  smooth  the  bending  rotatkais  at  the  pinned  end,  resulting  in  less  bending  rotations 
and  more  sdffriess  at  large  rotations.  This  problem  also  exceeds  assunqrtions  made  in  the 
kinematics.  Kinematic  derivations  were  based  on  the  assumption  that  vertical 
displacement  is  constant  through-the-thickness.  This  led  to  using  a  tangent  function  which 
assumed  only  horizontal  motion  of  cross  section  points  during  bending  (figure  2-2).  As  y 
gets  large,  the  in-plane  displacement  will  beccxne  infinite.  Including  mxrmal  strain 
through-the-thickness  would  help  this  problem  by  allowing  the  cross  section  to  contract 
making  vertical  displacement  a  function  of  the  thickness  coordinate.  More  exact  rotation 
kinematics  could  then  be  used  in  Eqn(2-14)  (resulting  in  a  sine  function).  This  would 
provide  more  accurate  bending  coupling  characteristics. 


3.10  Hinged  Clamped  Very  Deep  Isotropic  Arch  #2 

The  final  problem  analyzed  is  a  very  deep  hinged  clamped  arch  which  is  similar  to  the 
previous  proUem  except  that  it  has  a  smaller  opening  angle  and  thicker  cross  section.  As 
shown  in  figure  3-27,  this  arch  is  loaded  transversely  by  a  concentrated  fwce  at  the  crown. 
The  unsymmetrical  boundary  conditions  will  again  provide  large  rotations  at  die  hinged 
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end.  The  objective  cf  examining  this  piobLem  is  to  compare  to  other  thecxries  and  to 
explore  a  Riks  solution  in  more  detail  after  displacement  control  fails  to  converge.  This 
problem  was  examined  by  Creaghan  [8],  Brockman  [S]  and  DaDeppo  and  Schmidt  [11]. 
Brockman  felt  the  gecnnetric  con^lexity  this  problem  required  a  3-D  analysis.  He  used 
an  updated  Lagrangian  code  developed  for  material  and  gecanetric  nonlinear  atudysis.  To 
remain  consistent  with  beam  assumptions  used  by  others,  Brockman  used  a  3-D  elonent 
but  displacements  normal  to  the  plane  of  beruling  were  suppressed  to  compare  widi  other 
theories  that  didn't  account  for  finite  width.  DaDeppo  and  Schmidt  conducted  an  analysis 
based  on  the  Euler  nrmlinear  theory  of  elastica.  Ttiey  used  a  total  Lagrangian  fonnulation 
but  had  an  inextensible  mid-plane  and  no  transverse  shear.  This  problem  will  have  more 
through-the-thickness  shear  than  the  previous  since  it  is  over  four  times  thicker. 
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Figure  3-27  Very  Deep  Hinged  Clamped  Arch  #2 
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Initially,  the  analysis  was  conducted  with  a  40  element  (198  active  decrees  of  fieedom) 
full  arch  model.  The  results  were  very  similar  to  those  for  a  coarse  mesh  in  section  3.9. 
The  elements  near  the  hinged  boundary  became  unstable  and  kinked.  This  proUon  also 
exhibited  the  same  energy  characteristics  as  the  previous  one.  The  mesh  was  refined  to  a 
total  of  180  elements  (898  active  degrees  of  fieedmn)  with  136  of  the  elements  con^sing 
half  of  the  arch  with  the  pinned  end.  Displacement  control  was  initially  used  to  obtain 
equilibrium  solutions  and  help  characterize  the  arch  behavior.  The  results  are  shown  in 
figure  3-28  with  Oeaghan  and  Brockman/DaDeppo  and  Schmidt 

The  overall  trend  of  the  current  model  is  similar  to  the  previous  problem.  There 
appears  to  be  a  limit  point  near  33  inches  of  vertical  crown  displacement  (33  times  the 
thickness).  EHsplacement  "jun^s"  were  again  attempted  to  ensure  that  the  limit  wasn't  a 
snap  back  that  displacement  control  couldn't  capture,  but  all  atten^ts  were  non 
convergent.  Oeaghan  showed  solutions  within  10%  of  Brockmart/DaDeppo  and  Schmidt 
at  17  inches  of  crown  displacement.  The  current  solution  starts  to  diverge  sooner  (around 
IS  inches)  but  attains  a  higher  load  and  displacement  The  current  solution  gave  stable 
solutions  fcH-  nearly  5  more  inches  of  displacement  and  over  ISO  lb  of  force  than  Creaghan 
was  able  to  attain,  although  the  differences  from  other  solutions  should  not  be  neglected. 
Brockman  shows  geometric  collapse  load  of  897  lb,  while  the  current  solution  cmly 
reached  491  lb.  Brockman  also  showed  rotaticms  near  the  hinged  boundary  in  excess  of 
120  degrees  when  loads  approached  collapse.  The  current  work  is  limited  to  rotations 
that  are  far  smaller  than  those  experienced  by  this  problem.  In  an  attempt  to  find  other 
valid  equilibrium  states  fOT  a  refined  mesh,  Riks  method  was  used  with  the  results  shown 
in  figure  3-29. 
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Figure  3-28  Load  Displacement  for  Very  Deep  Hinged  Clamed  Arch 


Figure  3-29  Riks  for  Very  Deep  Hinged  Clamped  Arch 
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The  Riks  solution  initially  ft^ows  the  same  equilibrium  path  as  di^lacement  control 
until  reaching  the  vertical  limit  point  As  Riks  searches  along  an  arch  length  Ra’ 
equilibrium  points,  it  attempts  to  get  past  the  limit  point  but  cannot  find  a  stable  state. 

The  first  stable  state  is  found  when  load  aiul  displacement  both  begin  to  decrease.  This  is 
why  the  curves  in  figure  3-29  wn^  back  under.  Rotation  em»s  causing  strain  energy 
inccHisistencies  in  a  majcaity  of  the  elements  don't  allow  for  a  physically  valid  solution 
beyond  this  point  Riks  technique  provides  another  equilibrium  path.  The  load  and 
displacement  in  the  vertical  direction  (w)  continue  to  decrease  and  never  turn  back.  This 
trend  provides  an  excellent  example  of  how  Riks  {xrovides  other  solutions  when  numerical 
difficulties  are  encountered.  Looking  at  the  deformed  beam  shapes  gives  physical  meaning 
to  the  strange  looking  equilibrium  solutions  generated  by  Riks.  Equilibium  points  in 
figure  3-29  are  shown  as  deformed  shapes  in  figure  3-30.  Point  A  is  where  the  nwdel 
reaches  the  maximum  positive  displacement  and  positive  load.  Figure  3-30  shows  the 
deformed  shape  at  this  point.  As  the  arch  is  unloaded  by,  the  deformed  shape  of  a  typical 
point  after  the  load  sense  has  reversed  is  seen  at  point  B.  The  magnitude  of  the  upward 
force  and  displacement  continue  to  increase.  The  solution  never  returns  to  a  positive  load 
(downward)  since  Riks  technique  cannot  locate  other  stable  equilibrium  states  in  its  search 
radius. 
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Figure  3-30  Deformed  Shapes  of  Very  I>eep  Hinged  Clamped  Arch 

The  changes  in  bending  rotation  moving  along  the  arch  from  the  hinged  boundary  are 
large.  The  bending  angle  changes  by  nearly  60  degrees  from  the  crown  to  the  hinge  when 
the  limit  load  is  reached.  With  a  1  inch  thick  cross  section,  the  kinematic  assumptions 
cause  difficulty  for  the  model.  shape  functions  for  \|/  would  help  improve  the  solution 
by  providing  slope  continuity  as  the  bending  angles  go  through  radical  changes.  At  30 
inches  of  vertical  crown  deflection,  the  hinged  bending  rotations  are  40  degrees.  At  this 
point,  the  current  load  differs  from  Brockman/DaDeppo  and  Schmidt  by  15%.  40  degrees 
of  bending  rotation  has  been  consistently  providing  accurate  solutions  for  boundaries  with 
unconstrained  \|r  while  problems  with  \ir  constrained  at  each  boundary  have  given  accurate 
solutions  to  45  degrees  of  bending  rotation. 
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IV  Vectorization  and  Parallelization  Considerations 


4.1  Vectorization 

Advances  in  computer  hardware  and  sttftware  have  made  more  efficient  coiiq)utati(xi 
possiUe.  Ntxilinear  finite  element  programs  in  particular  can  involve  very  large  processing 
times  on  serial  machines  [1].  Large  degree  oi  freedom  systems  or  conducting  dynamic 
analysis  coupled  widi  higher  order  stmctural  theories  can  result  in  extmnely  large 
processing  times  on  single  processor  scalar  machines.  Multiprocessing  technology  has 
emerged  as  a  viable  method  to  possibly  decrease  processing  times  and  thus  increase 
efficiency.  This  allows  larger  dimensioiud  and  more  con^lex  models  to  be  aiudyzed.  The 
current  effort  focused  on  parallel  processing  and  vector  pipelining  of  tasks. 

We  begin  by  examining  vector  processing.  Vector  ccm^utations  refer  to  several 
independent  data  streams  being  computed  on  a  single  processor.  Vector  computers  use 
hardware  processing  units  called  vector  pipelines.  A  vector  pipeline  allows  some 
operations  that  are  traditionally  conducted  in  a  soial  manner  to  take  place  in  parallel  and 
independently  on  a  single  pipeline  processor.  Adeli  et  al.  [1]  shows  three  ways  of 
decreasing  the  time  required  to  perform  specific  instructions  on  a  vector  processor: 

1.  Increase  the  number  of  vector  pipelines  in  use.  An  N-fold  increase  in  pipelines  can 
theoretically  result  in  an  N  fold  decrease  in  processing  time  when  indepoident  tasks  are 
conducted  concurrently.  This  is  true  te  a  point  since  data  communication  from  memory  to 
pipelines  and  pipeline  filling  will  limit  the  inqxovement  when  die  number  of  pipelines 
becomes  great  The  processing  improvement  is  not  linear  with  large  processing  pipelines 
because  communication  time  can  become  significant 
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2.  Decreasing  the  precision  of  the  operation  can  deoease  the  inocessing  time.  On 
some  machines,  going  fiom  64  bit  operations  to  32  bit  halves  tiie  time  requirement  This 
is  possible  because  a  single  64  bit  pipeline  can  be  split  into  two  32  bit  pipelines. 

Additional  pipelines  can  be  used  for  double  precision  operations,  but  if  single  precision  is 
sufficient  some  single  pipelines  may  be  split  into  two  pipelines. 

3.  Special  vector  operations  that  involve  three  input  quantities  are  called  linked  triadic 
operations.  Frequent  scalar  and  vector  operations  of  these  quantities  are  linked  together 
as  one  process  by  extending  pipelines  to  incltKle  vector/scalar  multiplicatitxi  and  addition. 
Depending  on  the  specific  hardware  used,  various  vector  operations  may  already  be 
resident  in  the  pipelines.  When  these  tasks  are  conducted  concurrently,  computatimi  times 
may  be  greatly  reduced  over  serial  operations  [36]. 

When  ctMisidering  a  specffic  code  or  set  of  instructions,  there  are  two  methods  or  levels 
of  vectorization  [36].  The  first,  syntactic  vectorization,  involves  replacing  certain  lines  of 
code  with  vector  equivalents.  This  usually  tequiies  nx)difications  to  an  existing  code  to 
make  it  vector  compatible.  The  second  level  of  vectorization  is  algorithmic .  Algorithmic 
vectorization  involves  replacing  total  algorithms  with  their  vector  equivalent.  This  is  a 
much  more  complete  method  from  a  vector  standpoint.  Algorithmic  vectorization  is  a 
bottom  up  type  operation  as  the  entire  program  is  modified  and  designed  around  vector 
performance. 

VanLuchene,  Lee  and  Meyers  [36]  state  that  taking  existing  coiiq)uter  code  and 
making  minor  modifications  for  use  on  a  vectcx*  machine  (syntactic  vectorization)  is  the 
most  common  vectorization  technique.  They  study  an  updated  Lagrangian  finite  element 
formulation  to  evaluate  vectorization.  An  updated  Lagrangian  is  used  because  of  its 
incremental  nature  and  simpler  strain  displacement  relationships  as  conq>ared  to  a  total 
Lagrangian  [36].  The  current  total  Lagrangian  formulation  contains  complicated  strain 
displacement  relations  which  may  prove  to  be  less  advantageous  for  vecmrization.  To 
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investigate  the  vector  posaNlides  of  the  model,  the  code  was  placed  on  a  Convex  220 
vector  computer.  Our  objective  is  to  employ  some  level  of  syntactic  vecttaization  u> 
quantify  the  speed  inqirovement  Since  an  algorithmic  vecumzadon  was  not  atteii^)ted,  a 
knowledge  of  what  areas  of  die  code  are  the  most  computationally  intensive  would  he^i  us 
decide  where  to  concentrate  vectorization  effcarts.  Farhat,  Wilstm  and  Powell  [13]  inqily 
that  the  majority  of  computational  effort  for  a  liiKar  finite  element  model  lies  in  solving  the 
system  of  algebraic  equations.  VanLuchene  et  al.  [36]  approximate  that  38%  of  the  total 
CPU  time  is  omsumed  by  forming  die  element  stiffness  arrays  in  a  typical  nonlinear  finite 
element  model.  The  nonlinear  nature  of  the  current  model  does  not  make  it  obvious  what 
part(s)  of  the  code  are  the  most  crxnputationally  intensive.  The  current  model  uses  a 
Gauss  elimination  technique  on  the  global  equations  diat  are  stored  in  a  banded  symmetric 
format.  VanLuchene  et  al.  [36]  discusses  a  hypermatirx  storage  scheme  of  the  global 
stiffiiess  matrix.  The  advantages  seem  minimal  over  the  banded  symmetric  scheme 
cutiendy  used  since  hypermatrix  schemes  are  elegant  (from  a  matrix  algebra  perspective) 
and  usually  involves  more  data  communication  transfers  (overhead).  Efficient  vector 
Gauss  elimination  schemes  for  banded  symmetric  systems  exist  and  could  be  used.  A 
study  was  conducted  to  determine  which  routines  used  the  most  CPU  time  in  the  current 
model  to  help  focus  the  vectorization  effcnt.  CPU  time  was  recorded  for  each  routine  in 
the  code  for  several  typical  arch  problems.  The  problems  were  analyzed  on  a  scalar  Sparc 
330  computer.  The  time  required  for  the  Gauss  elimination  scheme  of  the  global  system 
of  equations  was  a  surprising  0.6  -  0.7%  of  the  overall  CPU  time.  This  was  much  lower 
than  expected.  Most  literature  for  efficient  computing  of  finite  element  codes  shows  that 
the  solver  usually  draninates  the  CPU  time  (even  for  nonlinear  problems).  76  -  82%  of  the 
CPU  time  was  spent  forming  element  stiffiiess  entries  with  the  remainder  of  the  time  in 
post  processing,  I/O  operations,  and  other  miscellaneous  tasks.  The  element  stiffiiess 

A  A 

computations  are  dominating  because  and  Vj  stiffness  arrays  are  recalculated  at  every 
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iteration  of  every  increment  (whether  it  is  load  or  di^lacement  control)  for  elonrat 
As  seen  in  the  code  listing  in  the  appendix  C,  the  entries  for  tiiese  arrays  involve  diousands 

A  A 

of  algebraic  manipulations.  After  N^  and  are  formed,  they  are  integrated  over  the 
element  length.  As  shown  in  chapter  n,  tive  point  Gauss  quadrature  is  used  to  do  the 
integration.  The  shape  functions  of  Eqn(2-S8)  are  calculated  at  each  Gauss  point  fra:  each 
element  All  of  this  is  accrai:q)lished  in  a  serial  manner  and  is  draninating  the  computation 
time.  Even  for  models  with  a  small  number  of  elements,  the  element  stiffiiess  calculations 
draninate.  Now  our  vectorization  effort  should  achieve  the  biggest  gains  by  concentrating 
on  the  element  stiffiiess  evaluation  portirais  of  the  code.  The  matiiematical  operations 

A  A, 

involved  in  forming  N,  and  are  very  well  suited  for  vectt»izatirai  because  they  each 
involve  extensive  independent  algebraic  calculatirais.  The  code  was  slightly  modified,  then 
complied  using  the  vectorization  (-02)  option  on  the  Convex  220.  Approximately  50%  of 
the  program  loops  fully  vectorized.  The  K,  N^  and  Nj  routines  vectorized  completely. 

As  expected,  significant  reduction  in  computation  time  was  observed.  Typical  problems 
(ranging  from  100  to  800  degrees  of  freedom)  were  analyzed  in  scalar  mode  on  a  Sparc 
330,  scalar  mode  on  the  Convex  and  vector  mode  on  the  Convex.  As  shown  in  figure  4-1, 
the  overall  CPU  time  required  for  a  vector  run  was  1/8  the  time  required  for  a  scalar  mn 
on  the  Convex.  VanLuchene  et  al.  [36]  show  that  input/output  requirements  can  be 
reduced  by  a  factor  of  approximately  100.  Input/output  time  was  not  monitored  in  the 
current  study,  but  similar  improvements  could  be  expected. 
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Figure  4-1  CPU  Hme  CompaiiscHis 

The  results  in  figure  4-1  confirm  the  findings  oi  the  initial  study  diat  the  fcnnadon  of 
the  element  stiffness  arrays  dominate  the  current  model.  A  CPU  time  decrease  of  a  factor 
of  10  is  the  most  that  can  be  expected  from  a  full  algorithmicaUy  vectorized  code  over  its 
scalar  equivalent  [36],  Completing  a  short  syntactic  vectoiization  centered  on  the  element 
stiffness  arrays  resulted  in  a  factor  of  8  reduction  in  CPU  time.  A  coiiq)lete  vectorizaticHi 
of  the  model  would  gain  little  more  than  already  shown  since  a  CPU  time  reduction  of  a 
factor  of  8  is  close  to  the  maximum  expected  factor  of  10  [36]. 

42  Parallel  Processors 

Another  area  of  advanced  computational  capalnlity  is  the  use  of  multiide  processes  cm 
a  single  problem.  We  will  look  at  what  odiers  have  putdished  in  this  area  on  similar 


(noblems  and  show  how  concurrent  processing  cooJd  be  aj^lied  to  the  current  effort  in 
the  future.  No  actual  parallel  ccHnfMJting  of  the  code  was  atienq)ted,  but  knowledge  of  the 
algorithms  and  process  allow  us  to  study  parallel  implementation  without  actually  dmng  it 
Multiple  processes  can  run  concurrendy  on  independent  tasks  to  reduce  the  overall 
confutation  time.  Parallel  operations  can  bring  great  increases  in  com|Wting  efficiencies 
over  a  single  process^.  As  the  number  of  processors  increases,  overhead  operations  tend 
to  get  magnified  with  communication  botdenecks  possible.  The  coding  language  also  has 
an  effect  on  the  parallelization  of  a  progrant  Adeli  et  al.[l]  prefer  FORTRAN  90  for  its 
ease  of  use  in  the  parallel  environment  The  current  code  is  in  FORTRAN  77  and  could 
be  used  in  a  parallel  machine  (depending  upon  the  specific  compiler  used),  but  FORTRAN 
90  is  better  suited  for  parallel  operations  and  conversion  is  recommended.  The  current 
model  has  many  functional  areas  that  would  benefit  from  parallel  processing.  As  already 
discussed,  formation  of  the  element  stiffness  urays  during  every  iteration  of  every 
increment  for  each  element  consumes  the  majority  of  the  CPU  time  for  the  current  nxxleL 
Each  of  these  operations  are  independent  making  them  good  candidates  for  a  parallel 
effort.  Parallel  compatible  compilers  would  identify  some  of  these  independent  kx^ 
operations  and  parallelize  them  automatically.  Farhat  et  aL  [13]  have  done  extensive 
work  in  the  area  of  parallel  computing  with  large  finite  element  models.  They  take  a 
problem  that  is  already  discretized  into  a  finite  element  system  and  furtiier  subdivide 
groups  of  eleritents.  Recognizing  that  element  qierations  are  independent  in  nearly  all 
finite  element  models  (linear  or  nonlinear),  they  assign  groups  of  elerttents  to  individual 
processors.  The  objective  of  the  subdivision  is  tt>  produce  units  that  have  nearly  die  same 
computational  load.  The  domain  is  usually  decomposed  into  a  number  of  substructures 
equal  to  the  number  of  processors  available.  If  the  number  of  processors  exceeds  the 
number  of  elerttents,  then  some  individual  tasks  associated  with  each  element  can  be 
carried  out  independently.  Each  substructure  contains  the  number  (rounded  in  some 
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cases)  of  elemrats  assigned  to  each  processor.  Hguie  4-2  shows  how  an  8  elemmt  uch 
model  may  be  divkled  for  three  processOTS. 


Hgure  4-2  Parallel  Processor  Domain  Substnicturing 

After  decompositimi  of  elements  into  subdtxnains  that  are  associated  with  independent 
processors,  element  calculations  can  be  conducted  in  parallel  at  each  iteratimi  of  each 
increment.  Figure  4-3  represents  an  algmidumc  flow  of  the  formation  of  the  elonent 
stiffness  arrays,  which  have  already  been  shown  to  be  computationally  intensive.  For 
serial  operaticms,  the  element  stiffness  arrays  are  generated  in  cnder.  For  a  parallel 
scheme,  multiple  elements  can  be  fnmed  concurrently.  Figure  4-3  also  shows  how 
stiffness  arrays  for  a  particular  element  can  be  formed  independoitly.  K  is  only  famed 
once  for  a  particular  element  while  Ny  and  ^2  updated  at  every  iteration  of  every 
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incremeiit  Each  requires  the  same  data  input,  but  can  be  cateulated  indepoident  (rf  eadi 
other.  Parallelization  provides  the  possibility  (tf  dividing  die  proUem  into  elenietit 
subdomains  and  independent  tasks  for  each  element  Now,  the  number  of  times  the 
element  stiffness  calculations  are  conqileted  on  a  single  processor  can  go  from  die  number 
of  elonents  in  a  model  to  die  number  of  elements  per  subdomain. 

The  concurrent  process  representation  in  figure  4-3  has  global  assembly  aiui  system 
soluticm  steps  in  serial  operations.  Faihat  Wilson  and  Powell  [13]  have  develr^ied  a 
parallel  Gauss  elimination  scheme  for  this  type  of  problem.  If  used,  the  global  assemtdy 
process  is  eliminated.  The  current  solver  is  a  serial  Gauss  elimination  scheme  that  requires 
global  assembly  of  the  equations.  If  a  parallel  scheme  is  used,  the  solver  would  reside  at 
each  processcH'  and  solutions  can  be  obtained  without  ever  assembling  the  equations 
globally.  Figure  4-3  would  be  changed  so  that  the  system  solution  is  completed  in  parallel, 
removing  the  global  assembly  block.  This  parallel  solver  requires  more  communication, 
fi  (SL  transfer  and  additional  arrays  m  identify  global  connectivity  and  sequencing.  The 
current  model  does  not  appear  to  be  limited  by  the  solver,  but  a  parallel  algorithm  is 
available  if  desired  in  the  future. 

Vectorization  and  parallelization  each  provide  the  current  effort  the  possibility  of 
improving  computational  performance.  With  very  few  changes,  vecb>rization  of  the  time 
consuming  tasks  resulted  in  radically  reduced  coir^utatirm  times  for  moderately  sized 
problems.  Existing  parallel  design  schemes  can  be  easily  adapted  to  the  current  effort  for 
use  on  multiple  processors.  Dynamic  and  large  degree  of  freedom  systems  could  benefit 
greatly  from  these  type  of  improvements  as  crxnputation  times  can  easily  teach  many  days 
on  serial  machines.  In^rovements  are  obtained  by  breaking  the  problem  down  into 
subdomains  and  independent  element  tasks.  Many  parallel  routines  already  exist  and  could 
be  used  by  the  current  code  instead  of  developing  program  specific  routines.  The  rate  of 
improvement  with  concurrent  operations  will  eventually  be  limited  by  input/output  and 
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c(mimunication  operati(His  fw  a  particular  architecture.  This  and  many  odier  detailed 
programming  and  hardware  issues  still  exist  to  get  the  noost  ccxi^utatkMial  efficiency 
possible  for  die  current  model. 
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Serial  Operations  for  Parallel  Operations  for 

Each  Element  Each  Subdomain 


Hgure  4-3  Serial  and  Parallel  Element  Stiffiiess  Processes 
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V.  Conclusions  and  Recommendations 


5.1  Summary  and  Conclusions 

This  efr<nt  led  to  die  successful  inclusion  oi  a  large  rotation  Idnemiuic  dieoiy  into  a  cme 
dimensional  ^ometrically  nonlinear  arch  model.  The  kinanatics  were  derived  vectoially 
and  inqilemented  in  the  Green  strain  expressitms.  A  tangent  functkm  of  the  beiKling  angle 
resulted  and  was  approximated  using  a  truncated  series  representation.  The  thecny 
included  all  the  teims  for  in-plane  ^rain  and  linear  terms  for  transverse  shear  strain.  All 
(nfaer  strain  components  were  neglected.  Large  rotation  kinematics  were  used  only  in  the 
in-plane  strain  equations  because  of  the  linear  shear  assumption.  The  beam  potential 
energy  was  derived  and  the  first  variation  made  stationary.  This  resulted  in  nonlinear 
differential  equations  which  were  approximated  by  nonlinear  algebraic  equations  through  a 
finite  element  scheme.  The  fiiute  element  model  was  developed  by  modifying  an  existing 
FORTRAN  code  that  was  originally  based  on  a  two  dimoisional  shell  tiieory.  The 
majority  of  the  code  modifications  were  to  the  elemrat  stiffiiess  arrays.  The  calculations 
fen*  each  element  increased  by  approximately  75%  for  the  large  rotation  version  of  the 
code. 

Numerous  problems  were  analyzed  to  determine  the  adequacy  of  the  pressed  theory. 
The  first  group  of  problems  involved  large  displacements,  but  relatively  small  bending 
rotations  (around  10  degrees).  Results  from  using  the  previous  moderate  rotation  theory 
were  nearly  identical.  This  was  expected  since  small  angle  approximatitms  used  in 
moderate  rotation  theory  were  accurate.  These  iiutial  problems  also  showed  that  the  new 
kinematics  didn't  cotnipt  the  model  and  that  the  thetny  was  inq)lemented  in  the  code 
correctly. 
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Computational  efficiency  was  briefly  exMmned.  A  syntactk;  vectixization  centered 
around  the  formation  of  the  element  stifhiess  matrices  resulted  in  a  vecttx’  {Hocessing  time 
that  was  1/8  the  time  required  in  scalar  mode.  ParallelizatitMi  was  examined  and  possible 
parallel  options  discussed. 


52  Recommendations  for  Further  Work 

As  large  rotations  are  limiting  the  cuirent  nrodel  to  45  degrees  of  bending  rotation, 
some  simple  changes  to  the  code  could  help  achieve  large  rotations  and  more  nonlinearity. 
Increasing  the  rotation  degrees  of  freedom  per  element  would  allow  higher  order  shape 
functions  to  more  accurately  represent  the  actual  bending  angle  distribution.  Since  the 
slope  of  the  bending  rotation  is  disctxitinuous  at  some  nodes,  Hermitian  shape  functions 
for  \jt  would  give  consistent  rates  of  change  between  elements.  Incorporating  C*  shape 
functions  would  require  that  a  \|/,2  degree  of  freedom  be  added  to  each  end  of  the  element. 
This  would  smooth  the  bending  rotations  and  provide  more  bending  stiffness  at  large 
angles.  If  transverse  normal  strain  is  added  to  the  formulation,  more  physically  correct 
kinematics  can  be  derived.  If  the  cross  section  is  allowed  to  contract  or  extend,  then  a 
sine  function  is  used  in  place  of  the  tangent  for  displacement  of  points  undergoing  pure 
bending. 

In  conclusion,  the  theory  presented  has  shown  significant  improvements  over  the 
previous  moderate  rotation  theory.  Using  large  angle  kinematics  resulted  in  a  stiffer 
structure  and  more  accurately  modeled  actual  beams  and  arches. 
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Appendix  A 


k 


A.l  Tran^ormations  of  Eqn(2-21) 

Qn  =  Giicos^0+  2{Qa  +  2(3^)sin*0cos*0+  sin^0 
Qa  -  {Qu  +  Qzi~  4(2gs)sin*0cos*0+  Qa(im*B+  cos^0) 

Qn  =  Qn  0  +  2(j2i2  +  0cos* 0  +  (Szi  cos^  ® 

Q\i  =  (fill -Qn-  2j266)sin0cos^0+  (e^ -  Gjj  +  20^5)011* 0cos0 
Q26  =  (fill  -  fii2  -  2Q66)sin^  0COS0+  {Q^  -  Ga  +  0cos*  0 

Qt6  =  (fill  +  Qn-  2fii2  -  2Gis)sin* 0cos* 0+  G»(sin‘‘ 6+  cos^ ®) 
Qm-Qm  cos*  0+  Gjj  sin*  0 
^  =  {Qm  -  G^)cos0sin0 
&  =  fiss  cos*  0+  G44  sin*  0 


i4.2  L,  S  and  H  Matricies  in  Eqns  (2-52)  and  (2-54) 

ll  =  {0  I  -c  0  0  0  0] 
I[  =  {0  0  -c*  0  0  0  1} 
4  =  {0  -c*  0  0  0  0  c] 
ll  =  {0  0  0  0  k  0  k] 

Lj  =  {0  0  0  0  cife  0  ck} 

4  =  {0000000} 

4  =  {0000000} 

4  =  {0000000} 

5/^  =  {0  0  0  0  0  0  0} 

52*'  =  {0  0  0  3it  0  3it  0} 
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c*  0  0  c  0  0 

0  1  -c  0  0  0 

0  -c  c*  0  0  0 

c  0  0  10  0 

0  0  0  0  0  0 

0  0  0  0  0  0 

0  0  0  0  0  0 


0  0  0 

0  0  -c^ 

0  -c^  2c^ 

c^  0  0 

0  0  0 

c'  0  0 

0  1+v^  -c{l+v*) 


-  3c*  0  0 

0  -  3c*  2c* 

0  2c*  0 

-  2c*  0  0 

0  0  0 

0  0 

c(l+  V*)  -  2c* 


o' 

0 

0 

0 

0 

0 

0 


c* 

0 

c* 

0 

0 

0 

0 

1+  v* 

0 

0 

0 

-c(l+v*) 

2c 

0 

c 

0 

0 

0 

0 

0 

c 

0 

0 

¥ 

0 

0 

¥ 

0 

-2c* 

0 

c* 

0 

0 

0 

0 

c(l+  V*) 

0 

0 

0 

-2c* 

0 

0 

2c* 

0 

0 

0 

0 

0 

2c* 

0 

c* 

cy 

0 

0 

cy 

l+2>|f* 

0 


■  2c* 

0 

0 

kc^ 

0 

-2c*  +  kc^ 

0 

0 

2c* 

0 

0 

ik 

0 

-2c*+ik 

0 

0 

0 

0 

-kc 

0 

-kc 

= 

ike" 

0 

0 

2kc 

0 

kc 

0 

0 

ik 

-kc 

0 

0 

0 

0 

-2c*+kc^ 

0 

0 

kc 

0 

2c* 

0 

0 

-2c"+ik 

-kc 

0 

0 

0 

2c 

■  0 

0 

0 

far* 

0 

ike* 

0 

0 

0 

0 

0 

kc 

0 

kc 

0 

0 

0 

0 

-2kc^ 

0 

-2kc^ 

fa:* 

0 

0 

4fa:" 

0 

3ikc" 

0 

0 

kc 

-2ikc" 

0 

0 

0 

^(l+  v") 

far* 

0 

0 

3ikc" 

0 

2ikc" 

0 

0 

kc 

-2fa;" 

0 

*(l+  v') 

0 

2ik(l+v") 

0 

0 

0 

-2kc* 

0 

-2kc* 

0 

0 

0 

0 

0 

-2ikc" 

0 

-2ikc" 

0 

0 

0 

0 

0 

0 

0 

-2kc* 

0 

0 

0 

0 

2ikc* 

0 

0 

-2fa:" 

0 

0 

0 

0 

2ikc(l+  v") 

-2kc* 

0 

0 

2ikc* 

0 

4ikc* 

0 

0 

-2ikc" 

0 

0 

2ikc(l+  v") 

0 

Akc 
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0 

0 

0 

0 

0 

0 

o' 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

ikV 

0 

tv 

0 

0 

0 

0 

0 

0 

k^ 

0 

0 

0 

ifcV 

0 

kv 

0 

0 

0 

0 

0 

0 

k\ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

H,= 

0 

0 

0 

2ikV 

0 

2ikV 

0 

0 

0 

0 

0 

2k^c 

0 

2k^c 

0 

0 

0 

2ikV 

0 

2ifcV 

0 

0 

0 

0 

0 

2k^c 

0 

2k^c 
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AJ  Element  St^kess  hiatricies  cfEqn(2-56) 


^  +  d(  V? )+ 

+  ^i4)+ 

h{i^LI  +mi+  1,4)+  /I,4  +  AS  SX  + 

DS(SX  +  S,Sj 

N,  =  a(l^^Ho  +  d%H,  +  //X)+ 

+d^L^2  +d^L,H^  +H^  +H^  +H^dlO 

+  L,d^H^  +  l^dJH^  +  d^L^^  + 

+  d^L^H^  +  +  f/^  + 

H^dlJi  +  H^dll  +  H^dll)  + 

H{L^^H^  +  L^d^H^  +  +  4d^//2  +  d^l^H^  + 

+  d^L^H^  +  +  //j<Z4  + 

7/4^4+ //3d4+//2d4)  + 

Jil^d^H^  +  VX  +  + 

+  d^L^H^  +  //,d4  +  Zf^dZ^  +  ZZjdZ^  +  ZZ4d4)+ 

LiL^^H^  +  V^Z/4  +  d^Z^ZZj  +  d^L^H^  +  Z/^dLj  +  Z/^dLj) 
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m 

1  #/jdrf^//o//,dd’^//,  +  +  ^dJU^dH,)^ 

2  2  4  4  2 

F(^//^X  +  +  H,ddJH^  +  +  H^dd^H^  + 

X  ib 

+  ^d^H^dH^  +  !</*■//, ^tf/3  +  +  id’^«,dffj)+ 

^  4  A  ^  ^ 

+  ]-H^dd^H^  +  //jdrf*^//,  +  +  //,dtf  X  + 

+  //j<«*^//j  +  +  -d^H^dH^  + 

4  4  2 

+  \d^H^dH^  +  ^d^H^dH^  +  + 

^  Zt  ^  z» 

J{HyddJH^  +  H^ddJH^  +  H^dd^H^  +  +  //jdrf’^/Zj  + 

+  ^d^H^dH^  +  -d^H^dH^  +  -d^H^dH^  + 

2  2  2 

+  id’^/ZadW,  +  + 

z  z  z  z 

LiH^dd^H^  +  //7<W*^//3  +  +  //jdtf + 

+  ^d^HTdH,  +  ^d^H^dH^  +  ^d^H^dH^  +  -d^H^dH,)  + 

2  2  2  2  2 

RiH^^H^  +  //^dd^^/Zs  +  H^dd^H^  +  -d^H^^  +  -d’^//,<tf/5  +  -d^H^dH^)  + 

2  2  2 

nn^dd^H^  +  -d^H^dH^) 

2 
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AA  Element  Strain  Energy  Calculation 


Strain  oio^sy  in  selected  elemrats  was  calculated  using  Eqpi  (2  -  S6): 


I  L 


dds 


which  can  be  expressed  in  natural  coofdinates  as: 


- 1  L  3  6 


dDetJ  dx\ 


Dery  is  the  determinant  of  the  Jacobian  matrix  (half  element  here) 
The  integral  above  can  be  approximated  using  Gauss  quadrature: 


U  - 


where  m  is  the  number  of  Gauss  points  (ordo*  of  quadrature) 
Wj  is  Gauss  weight  factcv  for  each  Gauss  point  and 


4>(Tli)  =  |W 


-  N,  N,  , 
K+—^+—^  dDetJ 
3  6 


evaluated  at  each  Gauss  pcmt 


d  is  found  at  each  Gauss  point  by  evaluating  die  shape  functions  at  that  point 

and  multiplying  by  die  element  degrees  of  fieedom . 

k,  iV, ,  and  N2  are  then  evaluated  with  d  for  each  Gauss  point 
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AppemMxB.  MACYSAiA  Inpm  to  GememieNf  aodNf  &dtnmBiies 


B.l  Nj  Inputs 


WRrmPILE("BEAMNl.WFO: 


jm*m*******mmmm***0***************m**m****«**mmm*********m**»*****m***»m*m*m»f 

f00m0**0*mm**0******m**»**m*0*0*m***********i*********************************f 

I*  MACSYMA  ROUTINE  FOR  ELEMENTAL  CX)DE  GENERATION  BY  S.  A.  SCHIMMELS  * 

/*  MODIFIED  BY  CAFT  DAN  MILLER  FOR  1-D  BEAMS  */ 

/»  CREATEDASAPART(X'ANAlRFCHlCEII'STmnEOPTBCHN(XjOGY(AFrr)  */ 
r  PROGRAMINAERONAUTICALENGINEERINO  — MARCH  1993  */ 

/*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OP  */ 

I*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  •/ 

/•  •/ 

/•  FOR  A  CURVED  BEAM.  CREATES  ELEMENT  •/ 

/*  INDEPENDENT  STIFFNESS  ARRAYS  N1  k  NIS.  */ 

yi****************************************************************************/ 

/»*«*«*»**«***«*«**»•*****»*«•«»*««*«**••**•»*»******»•»•»»****»•*•«••****»**/ 

/••«****«««***•***«***»*•••******•«•*•***«•**••••****•**•*••***••*****•*••*•*/ 

r  INITIALIZE  MACSYMA  PARAMETERS  AND  DECLARE  VARIABLE  PROPERTIES  */ 

y****************************************************************************/ 


PYNAMALLOC:TRUEJ>ISKGCTRUEJXRIVABBREV:TRUEPOWERI»SP:TRUE)$ 

DECLARE([K,C^I],CONSTANT); 


y****************************************************************************/ 

y****************************************************************************/ 

/*  CXNERATE  THE  NONLINEAR  ELEMENT-INDEPENISNT  STIFFNESS  ARRAY  Nl.  */ 

y****************,***********************************************************/ 

y****************************************************************************/ 

y****************************************************************************/ 

/*  ASSEMBLE  MATRIX  N1  */ 

y***»******«*«*****»*******«*«***»*******«*******************************»***y 


TXJ:MATRDC([<Xl).Q(2).Q(3).<X4).mmQC7).Q(8)l); 

Q:TRANSPOSE(TQ); 


L0T:EMATRIX(33.U,2)+EMATRK(33.-CA3); 
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L1T:EMATRIX(3A-C^2^>«-EMATRIX(33.1;2.7): 

L2T:EI)iUTIUX(3A<:a2^>4.EMAT1UX(3AC;2.7): 

L3T'.EKUTIUX(34)JU.S>fEMATiUX(3^JCA^^ 

UT£MATRIX(3AC*K;2^EMATRIX(33.C*K^7); 

LST2EROMATRIX03); 

L6T2ER0MAT1tlX(3^); 

L7T2ER0MATRIX(3J8); 

LO:TOANSFOSE(L(rn; 

Ll:’mANSFOSE(Lll); 

L2:TOANSPOSE(L2T); 

UrTKANSPOSECLST): 

UcTRANSPOSECUl); 

LSiTOANSPOSECLST); 

L6:1RANSFOSE(L6T): 

L7:TOANSPOSE(L7T); 

H0:EMATRIX(g^.CA2.1^HBMATRIX(8^.C.1.12)+ 

ematrixcs^.i^johemahuxcs^.-c^i  ih 

EMA11UX(8^.-C3.10>4-EMATRIX(8^.C^2^.1  1)+ 
EMATRIX(8^.C.4^>4-EMATRK(8;24.M.12); 
Hl:EMATRIX(8^.C^.1.12)+EMA’nUX(8^.C^2.1.14H 
EMATRIX(8^,-C''2A1 1)+EMATRIX(8;24.1+SI^2A15H 
EMAnuX(8;W,-CA23.10)+EMA'raiX(8^^  *C'^33.1 1>+ 
EMATRIX(8^4,-C-C*SI^23.15>f 
EMATRIX(8^.C'^2^.9>fEMA’nUX(8^^*C.4,12H 

EMA'nuX(8;24,C.4.14)4EMATSIX(8^.CA2^.9>4- 

EMATRIX(8^.C.6.12>t- 

EMATRIX<8^^I.6.1S>i-BMATRIX(8;24,1'^SI^2,7.10H 
EMAnUX(8^,-C-C*SI''2,7.1 1)+EMATRIX(8;W45I,7.14); 
H3:EMATRIX(8;24^*C''5,1^HEMATOIX(8^4C*C^2,1,12)+ 
EMATRIX(8;24,-2*CM+K*C^2,1,14)+EMATRIX(8^^*C^3Z10)+ 
EMATRIX(8^JW.13)+EMA’mDC(8^.-2*C>^+K^,15)+ 
EMATRIX(8^,-K*C3,13)+EMA’nUX(8^.-K*C3,15H 
EMATRIX(8.24JC*C^2,4^)+EMATRIX(8^^*K*C,4,12)+ 
EMATRIX(8^JC*C.4.14HEMATRIX(8^4W,10>+ 
EMATRIX(8^,-K*C^,1  l)+EMATRIX(8,24,.2*CM+K'»C''2^,9>f 
EMATRIX(8^JC*C,6,12)+EMATRIX(8;24^*C^3A14)+ 
EMATRIX(8^,-2*C^2+K,7,10>fEMATOIX(8^,-K*C,7,n)+ 
EMATRIX(8^^*C,7,15); 

H4:EMATIUX(8^Jt*C<'3.1,12)+EMATlUX(8^^*C<^3,l,14>+ 
EMATRIX(8^JC*C^.13>4-EMAT1UX(8^JC*C^.1S)+ 
EMATRIX(8^,-2*K*C^2,3,13)+EMATOIX(8^,.2*K*C''23.15)+ 
EMATRIX(8344C*C''3,43)+EMATOIX(834/»*K*C''2,4,12H 
EMATRIX(8343*K*C''2,4.14>+EMATRIX(8344C*C3,10)+ 
EMATRIX(834,*2*K*C''23.1  l>fEMATRIX(834  Jt+K*SI''23.15)+ 
EMATRIX(834JC*C''3,63HEMATOIX(8343*K*C''2A12>f 
EMATRIX(8343*K*C>'2,6,14)+EMATOIX(8344C*C,7,10H 
EMATRIX(834.-2*K*C>'2,7,n)+EMATRIX(834JC+K*SI^2,7,13)+ 
EMATRIX(8343*K+2*K*SI^2.7,15); 
H5:EMATRIX(834.-2*K*CM,l,12)+EMA'nUX(834.-2*K*CM,1.14)+ 
EMATRIX(834,-2*K*C''2A13)+EMATlUX(834.-2*K*C''23.15>f 
EMATRIX(834,-2*K*CM.43>+EMATOIX(8343*K*C'‘3A.14H 
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EliA11tIXCB>l.-2*K«Gn^.iaK 

EMATlUXl(!MUnC*C+2*K*C^PW.l5H 

EMA11UX(8^.-2*K«CMj6.9>fEMA11UX(g^^«K*CA3A12H 

BMATlUX(M4^*K*C*3A14>fEMATOIX(8^.-2*K*C*2.7,10H 

EMA‘nUX(IW4;j*K*C+2*K*C<«I^7.13>* 

EMATIUX(8^.4*K*C.7.15); 

H6:EMA11UX(8^JCA2*C^4.12>fEMATRIX(8^JCA2*CA2A14>f 

EMATRIX(8^JC^^.13>fEliiA'nUX(8;MJCA24.1S)+ 

EMATRIX(8;24JCA2*C*2A12>fEMA'nUX(8^4C'‘2*CA2^,14>f 

EMATRIX(8^4^A2.7.13>fEMA'nUX(8;24JCA2.7.1S); 

H7:EMATRIX(8^^*K<‘2*C^3.4.12>fEMATOIX(JU4^*K>'2<CA3^,14>f 

EMATRIX(8;24^*K^2*C4.13HEMA‘nUX(8^^*K*2*C4,15)+ 

EMATRIX(8^^*K''2*C*3A12>fEMA'nUX(8^^*KA2*CMA14)+ 

EMATRIX(8^^*K^2*C.7.13>fEMA'nUX(8^^*K>^2*C.7.15); 

H2:EMATWX<8;24.-3*CM.l^>tEMATOIX(8^.-2*C^3,1.12>f 

EMATRIX(8^.C'^3.1.14>fEMATOIX(8^.-3*C*2A10)+ 

EMATRIX(8^^*Ca3A11HEMATOIX(8^.C4C*SIA2A15H 

EMATRIX(8^^*C^33.10>fEMATRIX(8^.-2*CA23,15)+ 

EMATRIX(8;24..2*C'^3,4^>+EMATRIX(8^^*C^2,4.14)+ 

EMATRIX(8;i4,C'^3^^)+EMATRIX(8^^*C'^A12)+ 

EMAT1UX(8^.Ca2A14HEMATRIX(8^.C*SIj6.1S>4- 

EMATRIX(8^.C+C*SW.10HEMATRIX(8^.-2*C''2,7,11H 

EMATRIX(8^.C*SIJ.14)+EMATRIX(8^,1+2*SI*2,7,15); 


N12ER0MATRIX(8^)$ 

FOR  n  THRU  3  DO  FOR  JJ  THRU  3  DO  (PRINT(n  JU), 

ai:(-12*nA2+44*n-16),J2:(12*JJ^-52*JJ+<)4), 

Jl:(-12*JJ''2+44*JJ-16),I2:(12*n''2-52*n+64), 

SUBI0:SUBMATRK9I04Ul-Ul*241-3Jl-441-5Jl-6Jl-7. 

I2J2.1J2-242-342-442-5J2-6J2-7). 

SUBJ0:SUBMA'nUX(H0JUl-Ul-2Jl-3Jl-4Jl-541-Wl-7, 

J2J2.U2-242.3^-4J2-5J2-6J2-7), 

PRINT("H0"4UJ), 

SUBIl:SUBMATlUX(HUUl-Ul-241-341-441-541-6Jl-7. 

1242-142-242-342-4  ja-542-6,I2-7). 
SUBJ1:SUBMATRIX(H14141-141-241-341-441-541-641-7, 
1242-142-242-342-442-542-642-7), 
PRINTrHr4I4J), 

SUBI2:SUBMATRIX(H24141-141-241-341-441-541-641-7, 

1242-142-242-342-442-542-642-7), 

SUBJ2:SUBMATOIX(H24141-141-241-341-441-541-641*7, 

1242-142-242-342-442-542-642-7), 

PRINTCH2"4I41). 

SUBI3:SUBMATRIX(H34141-141-241-341-441-541-641-7, 

1242-142-242-342-442-542-642-7), 

SUB13:SUBMATRlX(H34141-141-241-341-441-541-641-7, 
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J2J2.1J2-242-3J2-4J2-5J2-6J2-7). 

PRINT("H3"JUJ). 

SUBI4:SUBMATRIX(H44Ul-Ul-241-341-4J[l-541-641-7, 

1242-142-242-342-442-542-642-7). 

SUBJ4:SUBMATOIX(H4J14M41-2JI-3J1^41-541-641-7. 

J242-142-242-342-442-542-642-7). 

PRINTrH4"4I4J). 

SUBI5:SUBMA'reiX(H54141-Ul-241-341-441-541-641-7. 

1242-142-242-342-442-542-642-7). 

SUBJ5:SUBMAHUX(H5J141-141-241-341-441-541-641-7. 

J242-142-242-342-442-542-642-7). 

PRINT("H5"4I4J). 

SUBI6:SUBMATRIX(H64141-141-241-341-441-541-641-7. 

1242-142-242-342-442-542-642-7). 

SUBJ6:SUBMAraiX(H6J141-141-24l-341-441-541-641-7. 

J242-142-242-342-442-542-642-7). 

PRINT("H6"4I4J). 

SUBI7;SUBMATRIX(H74141-141-241-341-441-541-641-7. 

1242-142-242-342-442-542-642-7). 

SUBJ7:SUBMAT1UX(H74141-141-241-341-441-541-641-7. 

J242-142-242-3J2-442-542-642-7). 

PRINT("H7"4UJ). 


Nl:Nl+A[n4J]*( 

COL(L04I).TQ.SUBJ(MTQ.COL(L04I))*SUBJO+SUBIO.QJlOW(Lar4J)). 

PRINT("N1A"4I4J). 

Nl:Nl+DD[n4J]*( 

CX)I44)4I).TQ.SUBJ2-»frQ.COL(M)4I))*SUBJ2+SUBI2,QJlOW(LOT4J)+ 

CX>L(L14I).TQ.SUBJ1+(TQ.CX)L(L14I))*SUBJ1+SUBI1.QJ10W(L1T4J>4. 

COL(L24D.TQ.SUBJO+(TQ.COL(L24I))*SUBJO+SUB10.QJIOW(L2T4J)). 

PRINTrNlDD"4UJ), 

Nl:Nl+Fin4J]*( 

COL(U)4I).TQ.SUB«+CIX3.COL(L04I))*SUBJ4*SUBI4.QJIOW(IJ)T4J>+ 

COL(L14DTQ.SUBJ3+(TQ.COL(L14I))*SUBJ3+SUBI3.QJlOW(LlT4J>+ 

C0L(L24D.TQ.SUBJ2-KTQ.C0L(L24I))*SUBJ2+SUBI2.QJ10W(L2T4J)+ 

COL(L34I).TQ5UBJl+CrQ.COL(L34I))*SUBJl+SUBIl.QJlOW(L3T4D+ 

COL(L44I).TQ.SUBXKrQ.COL(U4I))^UBJ()+SUBIO.QJlOW(L4T4J)). 

PRINTrNlF4I4J). 

N1;N1+H[IUJ]*( 

COL(L04I).TQ.SUBJ6KIX}.COL(L04I))*SUBJ6fSUBI6.QJlOW(ljOT4J>f 

COL(L14D.TQ.SUBJ5+(TQ.COL(L14I))*SUBJ5+SUBI5.QJlOW(LlT4J>+ 

COL(L24DTQ.SUBJ4+(TQ.COL(L24I))*SlJBJ4+SUBI4.QJlOW(L2T4J)+ 

COL(L34D.TQ.SUBJ3+(TQ.COLOL34I))*SUBJ3+SUBI3.QJIOWOL3T4J)+ 

COL(L44I).TQ.SUBJ2+CrQ.COL(W4I))*SUBJ2+SUBI2.QJlOW(UT4J)+ 
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OOt4>WTQ5l»ll4<TQ.C»l4^JO)*SUBJl>SUBIl.QJt^ 

OOI^L6Jl).TQ.SUBJOf(TQXXX4AQ))*SUBXk5UBl).QJt0W(LCTJI)). 

PRINTCNIH-OUJ). 

N1:N1+JIIUJ1*( 

COL(L14I).TQ^UBJ7-KTQ.COL(LlJI))*SUBJ7+SlJBn.QJlOW(LlTJJ>f 

CX)L(L24I).TQ.SUBJ6t<TQ.COL<U4I))*SUBI6fSUBK.QJlOW(L2TJJ>+ 

(X)L(IJ4I).TQ^lJBJ5+(TQ.COL(L3JI))*SUBJ54-SUBI5.QJlOW(L3TJJH 

CX)14>44I).TQ.SUBJ4+(TQ.COMU4I))*SUBJ4+SUBI4.QJIOW(UTJJ)+ 

COL(L5JI).TQJUBB+(TQ.COL(L5JI))*SUBJ3+SUBI3.QJM)W(L5T4J>f 

COL(L6JI).TQ^UBJ2+(TQ.COLaj64I))*SUBJ2+SlJBI2.QJlOW(L6TJJ>+ 

COL(L7JI).TQ.SUBJl4<TQXX)L(L74I))*SUBJl+SUBIl.QJlOW(L7TJJ)). 

PfONTCNirjajJ), 

N1:N1+L[njj]*( 

CCML3J[I).TQ.SlJBJ7+CrQ.CCML3ja))*SUBJ7+SUBn.QJlOW(L3T4J>f 

CX)L(MJO.TQSUBJWQ.CXX4^4I))*SUBJ6fSUBI6.QJlOW(MTJJH 

C0L(L54I).TQ.SUBJ5+(TQ.C0L(L5JI))*SUBJ5+SUBI5.QJ10W(L5TJJH 

COL(IAn).TQ.SUBJ4+<TQ.CXX4j64I))*SUBJ4+SUBI4.QJlOW(LCT4^ 

COL(L74I).TQ.SUBJ3+<TQ.COL(L7JI))*SUBJ3+SUBI3.QJlOW(L7TJJ)). 

PRINT("N1L"JUJ). 

Nl:Nl+R[njJ]*( 

C0L(L54]D.TQ.SUBJ7+(TQ.CXXXL54I))*SUBJ7+SUBI7.QJ10W(L5TJJ>+ 

CX)L(L6JI).TQ.SUBJ6+CrQ.COL(L64I))*SUBJ6fSUBI6.QJlOW(L6TJJ)+ 

COL(L74I),TQ.SUBJ5+(TQ.COL(L7JD)*SUBJ5+SUBI5.QJlOW(L7TJJ)), 

PRINTrNlR"4IJJ). 

N1:N1+T[njj]*( 

COL(L7JI).TQ.SUBr7+CrQ.CX)L(L7JI))*SUBJ7+SUBI7.QJlOW(L7TJJ)). 

PRINT("N1TJIJJ), 


KILL(SUBJ04!UBJl^UBJ2^UBJ3,SUBJ43UBJ5;5UBJ6^URr7), 

KILL(SUBI0^UBI13UBI2^UBBvSUBI4;SUBI5^UBi63UBI7))); 

SAVE("BEAMN1.SV"J<1); 

KILL(LOJLlJ^^3JL4a-54j6X7W^lTJL2TWTMTJ.5TJ^J.7T>$ 

KILL(H0fllJi24l34i44I5Jte4r7)$ 

N1SYM:ZER0MATRIX(83)$ 

FOR  n  THRU  8  DO  FOR  JJrH  THRU  8  DO  NlSYM[IUJ]:Nl[n4J]$ 
PRINT("SYMMETRIC  N1  FORMED")$ 

K1LL(N1)$ 

Nl.ZEROMA'nUX(83)$ 

KILL(Q,TQ)$ 
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'*/ 


/*  THE  FCHiOWING  STATEMENTS  GENERATE  A  FC»TRAN  STATEMENT  PC»  EACH 
NONZERO  •/ 

/•  ELEMENT  OF  SN1(IJ).  THESE  STATEMENTS  ARE  OF  THE  FORM  •/ 

/*  SN1(2^)=A(1,1).  */ 

/*  EACH  STATEMENT  IS  WRITTEN  TO  A  SEIERATE  FILE  CALLED  TT2XXX.  WHERE  XXX  •/ 
/*  STARTS  AT  001  FOR  THE  FIRST  NONZERO  ENTRY  AND  CONTINUES  SEQUENTIALLY  */ 
/*  UNTIL  ALL  NCR^ZERO  ENTRIES  THROUGH  SN1(18.18)  ARE  GENERATED.  THE  */ 

/*  MACSYMAFUNTTONGENTRAN  WILL  ALSO  BREAK  STATEMENTS  EXCEEDING  800  INTO 


*/ 


/*  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  CONTINUATION  LINES.  MACSYMA  */ 
/*  AUTOMATICALLY  MAKES  CONTTNUATTON  LINES  COMPLETE  WITH  A  LEGAL  */ 

/*  CHARACTER  IN  COLUMN  6.  */ 


FOR  II  THRU  8  DO  FCXl  JJ:n  THRU  8  DO 

Nl[IUJ]:FACTOROUT(NlSYM[njJl,Q(l).Q(2),Q(3).Q(4).Q(5).Q(6).Q(7),Q(8))$ 

FRAMEaj):=CONCAT(TNEV(8*a-lHJ+1000))$ 

FOR  I  THRU  8  DO  FOR  J:I  THRU  8  DO 

(IF  N1[I^#0  THEN  (P1:1,GENTRAN(BMN1(EVAL(DEVAL(J)]:EVAL(N1[IJ]), 
[EVAL(FRAMEaJ))])))$ 

IF  PT#1  THEN  GENTRAN(PT:EVAL(PT),[TT2000])$ 


CLOSEFILEO; 

QUITO; 


B2  Nj  Inputs 


WRnEFILE(’’BEAMN2.WF"); 


r  MACSYMA  ROUTINE  FOR  ELEMENTAL  CODE  GENERATION  BY  S.  A.  SCHIMMELS 
/*  CREATED  AS  A  PART  OF  AN  AIR  FORCE  INSTITUTE  OF  TECHNOLOGY  (AFIT)  */ 


/*  MODIFIED  BY  CAPT  DAN  ME.LER  FOR  I-D  BEAMS  */ 

!*  PROGRAM  IN  AERONAUTICAL  ENGINEERING -- MARCH  1993  */ 

!*  MACSYMA  IS  A  REGISTERED  TRADEMARK  OF  */ 

/*  THE  MASSACHUSETTS  INSTITUTE  OF  TECHNONLOGY  */ 


*/ 
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/*  •/ 

/•  FOR  CURVED  BEAM.  CREATES  ELEMENT  •/ 

t*  INDEPENDENT  STIFFNESS  ARRAYS  N2  &  N2S.  *! 


lt,}^ifmmm******m********m****if*****’¥**m****************************************l 

/*  INITIALIZE  MACSYMA  PARAMETERS  AND  IffiCLARE  VARIABLE  HICM^TIES 

yi|i«***«********«*i|i**4i****«******«««***4i««**«*****»«i***v»«*******4i****«******4>y 

[DYNAMALLOC:TRUE,DISKGC:TRUEJDERIVABBREV:TRUEJ>OWERDISP:TRUE]$ 

DECLARE([K,C,SI],CONSTANT); 


^mmm*****m**m************m*********»**m********‘*****’ii*****************‘******f 

/*  GENERATE  THE  NONLINEAR  ELEMENT-INDEPENDENT  STIFFNESS  ARRAY  N2. 

fm**^*^>*******m******t¥*:tt*mm*m***'**m*i****************************************'*f 

^^t1^0^^mi^^^i^^l^lJ^^nl^**********tim^l^*********m**^^^^***^^m*m******‘**m*****^^*******m*****f 


p,iir^t^m****«*m*mit********m******m**’ti*********’i“i‘**********************t‘***'****'*f 

/*  ASSEMBLE  MATRIX  N2  */ 

y«i|i****««*:|iit>*4>***4i>l>4>*****4>*«it>»4>4'**<l'«>)>**************<t<***1>**************'*****’)'*y 

TQ;MATRK([Q(1),Q(2),Q(3),Q(4),Q(5).Q(6).Q(7).Q(8)1); 


Q:TRANSPOSE(TQ); 


H0:EMATRIX(8,24,C''2,  I,9)+EMATRIX(8^,C,1  ,I2)+ 
EMATRK(8,24,U.I0)+EMATRDC(8,24,-C^  ,1 1)+ 
EMATRIX(8^,-C.3,10>+EMATRIX(8,24,C''23,11)+ 
EMATRDC(8^,C.4,9)+EMATRD((8.24,1,4,12); 

H1:EMATRK(8,24,C''2,1,12)+EMATRIX(8^,C''2.1,14)+ 

EMATRK(8^.-C^2^,11)+EMATRIX(8,24,1+SI''2^,15)+ 

EMATRIX(8^,-C''23,10)+EMATRK(8^^*C''33.11)+ 

EMATRK(834,-C-C*SI^23,15)+ 

EMATRIX(834,C''2,4,9)+EMATRIX(8,243*C,4,12)+ 

EMATRIX(834.C.4,14)+EMATRIX(8,24,C''2,6,9)+ 

EMATRDC(834,C,6,12)+ 

EMATRIX(8,24,SI,6,15)+EMATRK(8,24,1+SI''2,7,10)+ 

EMATRIX(834.-C-C*SIA2,7,11)+EMATRIX(8,24,SI.7,14); 

H3:EMATRIX(8.243*C>'5,1,9)+EMATRIX(834.K*C^2,1,12)+ 

EMATRIX(8,24,-2*CM+K*C''2,1,14)+EMATRIX(834,2*C''33,10)+ 

EMATRK(8,24JC,2,13)+EMATRIX(8,24,-2*C''2+K3,15)+ 

EMATRIX(8,24,-K*C,3,13)+EMATRIX(834,-K*C,3,15)+ 

EMATRIX(8,24,K*C''2,4,9)+EMATRIX(8343*K*C,4,12)+ 

EMATRIX(8,24,K*C,4,14)+EMATRIX(8,24JC3,10)+ 

EMATRIX(8,24,-K*C,5,11)+EMATRIX(834,-2*CM+K*C''2,6.9)+ 

EMATRK(8,24,K*C.6,12)+EMATRDC(834.2*C''3,6,14)+ 

EMATRIX(8,24,-2*C''2+K,7,I0)+EMATRK(834,-K*C,7,11)+ 
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EMAHUX(8^^*C,7.15); 

H4:BMATRIX(8;i4JC*C^3.l,12HEMATRIX(8^4JC*C*3,l,14)+ 
EMATRIX(8^JC*C^,13>fEMA'nUX(8;24JC«C^lSH 
EMATRIX(8;24,-2*K*C^23.13>+EMATOIX(8^,-2*K*C''23.15)+ 
EMATRIX(834JC*C^3,43>4-EMATWX(834.4*K*C^2,4.12>f 
EMATRIX(8343*K*CA2,4.14KEMA‘nUX(834JK*C4.10>+ 
EMATRDC(834.-2*K*C''23.1 1)+EMATRIX(834JC+K*SI'^23.15)+ 
EMATRIX(834JC*C''3.63)+EMA'nUX(8343*K*C^24.12)+ 
EMATRIX(8343*K*C''2.6,14HEMATRIX(834JC*C,7.10)+ 
EMATRIX(834.-2*K*C>'2.7.11>fEMATRIX(834JC+K*SIA2,7.13>+ 
EMATRIX(8343*K+2*K*SI>'2.7.15); 

H5:EMATRIX(834.-2*K*CM,1.12>+EMAraiX(834,-2*K*CM,l,14)+ 

EMATRIX(834.-2*K*C''23.13HEMATRIX(834.-2*K*C^23.15K 

EMATRIX(834,-2*K*CM.43)+EMATRIX(8343*K*CM.4.14>f 

EMATRIX(834.-2*K*CA23.10)+ 

EMATOIX(8343*K*C+2*K*C*SIA23.15H 

EMATRIX(834,-2*K*CM.63HEMA‘nUX(8343*K*C^3j6.12>+ 

EMATRIX(834,4*K*C'^3,6,14>+EMATOIX(834.'2*K*C^2.7.10H 

EMATRIX(8343*K*C+2*K*C*SW,13)+ 

EMATRIX(834,4*K*C.7.15); 

H6:EMATRIX(8.24JC''2*CA2.4,12)+EMAT1UX(834JC^2*C>^2,4,14H 

EMATRIX(834JC>'23.13)+EMAT1UX(834JCA23.15K 

EMATRIX(8,24aC'^2*C'^2.6.12KEMATRIX(834JC'^2*C^2A14)+ 

EMATRIX(834.K'^2.7,13>fEMA'nUX(834JC'‘2.7,15): 

H7:EMATRIX(8343*K'^2*C''3,4.12)+EMA’I1UX(8343*K^2*C'^3.4,14>+ 

EMATRIX(8343*K^2*C3,13)+EMATOIX(8343*K'‘2*C3,15)+ 

EMATRIX(8343*KA2*C''3.6.12>+EMATRIX(8343*K'^2*CA3A14>f 

EMATRIX(8343*K^2*C,7,13)+EMATRIX(8343*K''2*C,7.15); 

H2:EMATRIX(834,-3*CM,1,9)+EMATRIX(834.-2*C>'3.1,12H 

EMA'raiX(834.C''3a,14)+EMATRIX(834,-3*CA23,i0)+ 

EMATRIX(834.2*CA33.11)+EMATOIX(834,C+C*SI^23,15)+ 

EMATRIX(834,2*C''33.10>fEMATRIX(834,-2'*C^23.15)+ 

EMATRIX(834,-2*C''3,43)+EMATRIX(8343*C^2,4,14)+ 

EMATRIX(834,C'^3,6.9>+EMATRIX(8343'*C^2,6,12)+ 

EMATRIX(834,C''2.6,14>fEMATRIX(834,C*SI,6,15)+ 

EMATRIX(834,C+C*SI''2,7.10)+EMATRIX(8,24,-2*C''2.7.11)+ 

EMATRIX(834,C*SI,7,14)+EMATRIX(8.24.1+2*SI>'2,7,15); 


N22EROMATRIX(83)$ 


CA;l/2; 

CB:l/3; 

CC:2/3; 

FOR  n  THRU  3  DO  FOR  JJ  THRU  3  DO  (reiNT(n  JJ), 

(Il:(-12*n''2+44*n-16).J2:(12*JJA2-52*JJ+64), 

Jl:(-12*JJ''2+44*JJ-16),I2:(12»n''2-52«n+64), 

SUBI0:SUBMATRK(H0JU1-1, 11-2,11-341-441-541-641-7. 

1242-142-242-3,12-442-542-642-7). 

SUBJ0:SUBMATRa(H04Ul-Ul-241-341441-541-641-7, 
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J2J2-IJ2-2J2-3J2-4J2-SJ2-6J2-7). 

PRINT("HCrjIJJ). 

SUBIl:SUBMAT1UX(HlJUl-Ul-2Jl-3JM41-SJl-6Jl-7. 

1242-142-242-342-442.542-642-7). 

SUBJl:SUBMA’nuX(H14Ul-141*241-3Jl-441-541-641-7. 

1242-142-242-342-442.542-642-7), 

PRINT("Hr4I4J). 

SUBI2:SUBMATOIX(H24141-141-241-34M41-541-641-7, 

1242-1,12-242.342-442-542-642-7), 

SUBJ2:SUBMA'nuX(H24141-141-241-341-441-541-641-7. 

1242-142-242-342-442-542-642-7). 

PRINT("H2"4I4D. 

SUBI3:SUBMA’nUX(H34141-141-241-341-441-541-641-7. 

1242-1.12-242-342^42-542-642-7), 

SUBJ3:SUBMATOIX(H34141-141-241*341-441-541-641-7, 

1242-142-242-342-442-542-642-7), 

PRINT("H3"4I41), 

SUBI4:SUBMATOIX(H44141-141-241-341-441-541-6,ll-7. 

1242-142-242-342^42-542-642-7), 

SUBJ4:SUBMA'nUX(H44141-141-241-341-441-541-641-7, 

1242-142-242-342-442-542-642-7). 

PRINT("H4"4I41). 

SUBI5;SUBMATRIX(H54141-1J1*2.I1-341-441-541-641-7, 

1242-142-242-342-4,12-542-642-7), 

SUB15:SUBMATRIX(H54141-141-241-341-441-541-641-7, 

1242-142-242-342-442-542-642-7), 

PRINT("H5"4I,11), 

SUBI6:SUBMATRIX(H64141-141-241-341-441-541-641-7, 

12.12- 142-242-3.12-442-542-642-7), 

SUBJ6:SUBMATRIX(H64141-141-241-341-441-54I-641-7, 

1242-142-242-342-442-542-642-7), 

PRINT("H6"4I41), 

SUBI7:SUBMATRIX(H74141-l.Il-241-341-441-541-641-7, 

12.12-  1 ,12-242-342-442-542-642-7), 
SUBn:SUBMATRIX(H74141-141-241-341-441-541-641-7, 

1242-142-242-342-442-542-642-7), 

PRINT("H7",U41). 

N2:N2+A[n41]*(SUBIO.Q.TQ.SUB10tCA*(TQ.SUB10.Q)*SUB10), 

PRINT("N2A"4I4D, 

N2:N2+DD[n41]*(CB*(SUBI0.Q.TQ.SUB12+CA*(TQ.SUBI0.(»*SUB12+ 

SUBI2.Q.TQ.SUBJ04CA*(TQ.SUBI2.Q)*SUB10)+ 

SUBI1.Q.TQ.SUB11+CA*(TQ.SUB11.Q)*SUBI1), 

PRINT("N2D"4I,J1), 
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N2:N2+F(njJ]*(CB*(SUBI0.Q.TQ.SUBJ44CA*(TQ.SUBI0.Q)*SUBJ4+ 

SUBI4.Q.TQ^UBJ(HCA*(TQ^UBI4.Q)*SUBJ0>f 

CC*(SUBI1.Q.TQ^UBJ3+CA*(TQ.SUBI1.Q)*SUBJ3+ 

SUBD.Q.TQ^UBJl4CA*(TQ.SUBI3.Q)*SUBJl>f 

SUBJ2.Q.TQ.SUBJ2+CA*(TQ.SUBJ2.Q)*SUBI2). 

PRINT("N2FJIJJ). 

N2:N2+HIIUJ]*(CB*(SUBiaQ.TQ.SUBJ6fCA*(TQ^UBI0.Q)*SUBJ64- 

SUBI6.Q.TQ^UBJ04CA*(TQ.SUBI6.Q)*SUBJ0>f 

CX:*(SUBI1.Q.TQ^UBJ5+CA*(TQ.SUBH.Q)*SUBJ5+ 

SUBI5.Q.TQ.SUBJl4CA*(TQ.SUBI5.Q)*SUBJl)+ 

CC*(SUBI2.Q.TQ.SUBJ44CA*(TQ.SUBI2.Q)*SUBJ4+ 

SUBI4.Q.TQ.SUBJ24CA*(TQ.SUBI4.Q)*SUBJ2>+ 

SUBI3.Q.TQ.SUBJ3+CA*(TQ.SUBJ3.Q)*SUBI3). 

PRINT("N2H"4UJ). 

N2:N2+J[njJ]*(CX:*(SUBIl.Q.TQ.SUBJ7+CA*(TQ.SUBIl.Q)*SUBJ7+ 

SUBI7.Q.TQ.SUBJ1+CA*(TQ.SUBI7.Q)*SUBJ1)+ 

CC*(SUBI2.Q.TQ.SUBJ6+CA*CrQ.SUBI2.Q)*SUBJ6f 

SUBI6.Q.TQ.SUBJ24CA*(TQ.SUBI6.Q)*SUBJ2>+ 

(X:*(SUBI3.Q.TQ.SUBJ5+CA*(TQ.SUBI3.Q)*SUBJ5+ 

SUBI5.Q.TQ.SUBJ3+CA*(TQ.SUBI5.Q)*SUBJ3)+ 

SUBI4.Q.TQ,SUBJ4+CA*(TQ.SUBJ4.Q)*SUBI4), 

PRINT("N2rj[IJJ). 

N2:N2+LtnjJ]*(CC*(SUBI3.Q.TQ.SUBJ7+CA*<TQ.SUBI3.Q)*SlIBJ7+ 

SUBI7.Q.TQ.SUBJ34CA*CrQ.SUBI7.Q)*SUBJ3)+ 

CC*(SUBI4.Q,TQ.SUBJ64€A*(TQ.SUBI4.Q)*SUBJ6f 

SUBI6.Q.TQ.SUBJ44CA*(TQ.SUBI6.Q)*SUBJ4)+ 

SUBI5.Q.TQ.SUBJ5+CA*(TQ.SUBJ5.Q)*SUBI5), 

HUNTrN2L"JIJJ), 

N2:N2+R[njJ]*(OC*(SUBI5.Q.TQ.SUBJ7+CA*(TQ.SUBI5.Q)*SUBJ7+ 

SUBI7.Q.TQ.SUBJ5+CA*CrQ.SUBI7.Q)*SUBJ5)+ 

SUBI6.Q.TQ.SUBJ&fCA*(TQ.SUBJ6.Q)*SUBI6), 

PRINTrN2R"4IJJ), 

N2:N2+T[njJ]*(SUBI7.Q.TQ^UBJ7+CA*(TQ.SUBJ7.Q)*SUBI7), 

HUNT(”N2T"JIJJ), 

KILL(SUBJ0,SUBJ1^UBJ2,SUBJ3,SUBJ4^UBJ5^UBJ6^UBJ7). 

KILL(SUBI0,SUBIl^UBI24iUBI3;SUBI4,SUBI5,SUBI6;SUBI7))); 

KILL(H0JI1324B4I4JI5fl64r7)$ 

N2SYM:ZEROMATRIX(83)$ 

SAVE("BEAM-N2.SV"J^2)$ 

FOR  II  THRU  8  DO  FC«  JJ:n  THRU  8  DO  N2SYM[IUJ]:N2[n  JJ]$ 
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ntMTSYMlffiliaC  N2  POitMBiy*)$ 
Kni^)$ 

N2ZBR0MA11UX(8^)$ 

iaLL(Q.TQ)$ 


^*«****«i*«******»**«***********«********«**********»***«*********«**********y 


^«***«****«*«i**«*****«***************«******»***»***************»*****«*****/ 


I*  THE  FCXJLOWINGSTA'mMBNTS  GENERATE  A  FORTRAN  STATEMENT  FOR  EACH 
NONZERO*/ 

/*  ELEMENT  OF  SN2aj).  THESE  STATEMENTS  ARE  OF  THE  FORM  */ 

I*  SN2(2^)=A(1.1).  •/ 

/•  EACH  STATEMENT  IS  WRITTEN  TO  A  SEPERATE  FILE  CALLED  TT2XXX.  WHERE  XXX  •/ 
/*  STARTS  AT  001  FCXl  THE  FIRST  NON2£RO  ENTRY  AND  CONTINUES  SEQUENTIALLY  */ 
/*  UNTIL  ALL  NONZERO  ENTRIES  THROUGH  SN2(18.1g)  ARE  GENERATED.  THE  */ 

/*  MACSYMAPUNTTONGENTRAN  WILL  ALSO  BREAK  STATEMENTS  EXCEEDING  800  INTO 


*/ 

/*  SHORTER  EXPRESSIONS  TO  AVOID  TOO  MANY  CONTINUATION  LINES.  MACSYMA  */ 
/*  AUTOMATICALLY  MAKES  CONTTNUATTON  LINES  COMPLETE  WITH  A  LEGAL  •/ 

/*  CHARACTER  IN  COLUMN  6.  */ 

^****«*«**«*»*»»***«******«****««««*****»******«*»***»»«***»*»»»******»****/ 


PRAMEaJ):=CONCAT(TNEV(8*a-l>+J+1000))$ 

FOR  n:l  THRU  8  DO  FOR  JJ:n  THRU  8  DO 

N2[njJ]J'ACraROUT(N2SYM[njJl,Q(l),Q(2).Q(3),Q(4),Q(5),Q(6).Q(7).Q(8))$ 
FOR  1: 1  THRU  8  DO  FOR  W  THRU  8  DO 

(IF  N2(I^  THEN  (PT;  I,GENTRAN(BMN2[EVAL(I)3VAL(J)]:EVAL(N2p  J]), 
tEVAL(FRAMEaj))])))$ 


CLOSEFILEO; 

QUITO; 
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Appa*^  C  FORTRAN  Program  Description 


C.1  Progran  Description 

The  attached  code  was  initially  developed  by  Qea^uuL  Modifications  that  were 
devel(q)ed  in  chapter  II  were  incorporated  into  the  code.  I\fost  of  die  dianges  invtdved 
forming  the  element  stiffness  routines.  The  Riks  and  displacement  control  sdutkm 
techniques  were  used  as  presented  by  Creaghan  and  required  only  minor  modifications  to 
fix  bugs.  The  code  subroutines  are  described  and  the  code  itself  included  for  readers  to 
examine  die  details  of  the  theory  implementadon.  Not  an  subroutines  are  listed,  just  die 
major  routines  that  enable  the  reader  to  better  understand  the  code. 

1.  beam  -  This  is  the  main  finite  element  program  that  calls  the  input  routine  (rif^ut), 
elasticity  routine  (elast)  and  which  ever  solutkm  technique  is  ^[lecified. 

2.  nnpitf- Reads  in  program  data  from  user  defined  file.  Input  infcrmatimi  is  echoed  to 
the  output  file  for  easier  confirmation  of  reading  correct  data. 

3.  elast  -  This  routine  calculates  the  elasticity  terms  for  either  isotropic  or  conqiosite 
materiaL 

4.  procer- This  is  the  main  subroutine  for  doing  displacement  control  solutions.  It  calls 
stiff  to  form  element  stiffness  matrices,  assembles  them  globally,  then  calls  solve  tt>  find 
incremental  solutions,  proces  increments  displacement,  iqiplies  boundary  crmditioiis,  and 
calls  converge  to  check  for  incremental  convergence.  When  an  increment  is  complete, 
pospr  is  called  to  do  any  required  post  fxocessing. 

5.  nkspr  -  This  is  the  main  Riks  method  subroutine.  It  acts  much  die  same  as  proces  does 
for  displacement  control,  but  incrementing  parameters  are  more  ccmqilicated  due  to  the 
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oomplKaied  nature  of  die  techniqiie.  The  logic  used  in  Riks  came  duecdyfiomTsid's 
code. 

6.  51^' This  subnnidne  calculates  the  element  stiffness  arnys.  Routines  are  called  to 

iV  A  A 

find  K,  and  Jt^then  calls  shape  which  evaluates  the  shape  functions  at  the  Gauss 
points.  Five  point  Gauss  quadrature  takes  place  in  stiff  Ux  each  element  stiffness  array. 
The  eneigy  calculations  fnxn  chiqiter  in  and  appendix  A  were  also  conducted  hoe  since 
the  shape  functions  were  already  evaluated  and  the  integration  was  taking  place.  The 
biggest  changes  to  the  code  to  incoqxnate  the  current  theory  came  from  finding 

A  A  A 

AT,  and  iVj-  equations  for  each  are  shown  in  appendix  A  and  involve  thousands  of 
man^ulations.  The  MACSYMA  files  shown  in  appendix  B  were  used  to  generate  die 
calculations  in  these  routines.  If  one  examines  the  code,  nearly  75%  of  the  lines  of  code 
are  in  calculating  diese  arrays. 

7.  shape  -  This  subroutine  evaluates  the  shape  fiinctions  at  each  Gauss  point  and  include 
the  Jacobian  terms. 

8.  postpr  -  This  routine  does  any  necessary  post  processing  after  conver^nce  of  a 
particular  increment.  Any  resultant  fraces  are  generated  here  and  placed  in  an  output  file 
with  nodal  displacements.  It  also  generates  a  file  called  "plot"  which  contains  (in  column 
format)  the  displacement  for  the  degree  of  freedom  specified  fw  frace  computation,  the 
displacement  for  the  degree  of  freedom  two  less  than  the  dof  specified  for  force 
ctxnpilation,  and  the  force  for  the  specified  dof.  For  example,  if  dof  60  is  vertical 
displacement  at  an  arch  crown  (w)  and  is  specified  for  force  conqiutation,  tiien  plot 
contains  dof  60  in  the  first  column,  dof  58  in  the  second  column  (v  of  the  crown  in  this 
case),  and  the  crown  vertical  force  in  the  third  column.  Nodal  coordinates  at  each 
increment  are  placed  in  a  file  called  "bshape".  The  coordinates  are  expressed  in  a 
Cartesian  reference  frame  with  the  radius  of  curvature  as  the  origin.  For  a  flat  beam,  the 
end  with  the  first  node  is  the  origin. 
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C2  Data  Itqtut  Format 


The  following  provides  the  data  fionnat  for  each  line  (tf  the  ii^t  file.  Eadisectk» 
represents  a  line  in  the  file  and  each  variable  described  for  a  particular  line  is  separaied  by 
a  comma.  VariaUes  are  in  italics. 

1.  ririe  -  pfoUem  title  text  string 

2.  linear,  isotro,  isarch,  ishape: 

a.  /meorO  for  nonlinear  problem,  1  for  UnearproUem 

b.  isotro:  0  for  conqxMite,  1  fior  isotn^c 

c.  isarch:  0  for  straight  beam,  1  fiv  circular  arch 

d.  1  to  compute  node  coordinates  for  straight  beam  or  full  arch,  2  if  half  the 
arch  is  being  modeled 

3.  inctyp,mnc,imax,kupdte,tol: 

a.  inctyp:  1  for  displacement  amtrol,  2  fOT  Riks  method 

b.  nine:  numb^  of  increments  (load  o' displacement)  desired 

c.  imax:  maximum  number  of  iterations  per  increment 

d.  kupdte:  not  used  but  fill  with  1  or  0 

e.  tol:  convogence  tolerance  for  an  increment.  Usually  .01  or  less(vary  for  Riks) 

4.  pincr,  eiter,  t^ti:  include  this  line  only  if  inctyp=2  (Riks)  and  linear^  (nonlinear) 

a.  pmcr.  initial  load  parameter  (Xq)  try  0.1 

b.  eiter.  N,  -  estimate  at  the  number  of  iteradois  per  increment  Not  usually  an  integer 

c.  t^i:  maximum  load  increment  at  decrement  for  an  iteration  (X^) 

5.  table(ninc):  include  <xily  for  inctyp=\  and  linear^  (nonlinear  displ«:ement  control). 
This  is  a  list  of  mne  numbers  that  will  be  multiplied  by  nodal  displacement  to  get  the 
displacement  fev  an  increment 

6.  ne/em:  number  of  elements  in  the  medi 

7.  delem(nelan):  list  ci  element  lengths,  <xie  length  for  each  element 
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8.  ntnuby.  nunAer  of  nodes  with  qwcifieddiylacementboimdpy  conditions 

9.  nbound(nbndryJS):  one  line  for  each  note  with  q)ecifieddisidaccninit  boundary 
conditions.  The  first  number  is  the  node  number  (each  element  has  three  nodes,  but  only 
end  nodes  ate  numbered,  di^lacement  cannot  be  specified  at  a  mid  node).  The  n»t  four 
numbers  describe  whether  or  not  the  (krfs  are  fiee  or  q;)ecified.  Ispresctibed ,  0  =  fiee. 
Order  of  dofs  is  v,  y,  wand 

10.  vbondiii):  real  prescribed  di^lacements  for  those  dofs  fixed  above  in  the  order  that 
diey  were  specified.  For  displacenaent  control,  these  values  will  be  multiplied 
incremental  values  in  table(ninc). 

11.  Idtyp,  distld,  Idtyp:  thisline  was  originally  intended  for  distributed  load,  but  is  not 
used.  Fill  with  0, 0.0  as  this  input  line  is  still  required. 

12.  nconc:  number  of  concentrated  loads  (or  mnnents).  Riks  needs  at  least  1 

13.  iconc(nconc):  sldp  if  nconc=0.  dof  numbers  for  ctmcentrated  loads.  Middle  node  dof 

count  here  (9  dofs  per  element).  The  order  is  v^,  y  ^  W,  v*,  y 

14.  vconc(nconc):  values  of  loads  at  dofs  above,  skip  if  nconc=0 

15.  ey,  nu,  ht,  width:  include  for  isotropic  matoial 

a.  ey:  Young's  modulus 

b.  nu:  Poisson's  ratio 

c.  /u:  thickiiess 

d.  beam  or  arch  width 

16.  el .  e2,  gl2,  nul2,  gl3,  g23,width:  include  for  composite  material 

a.  el:  Young's  modulus  along  the  fibers 

b.  e2:  Young's  modulus  transverse  to  fibers 

c.  gl2:  shear  modulus  G12 

d.  Poisson's  ratio  V12 

e.  gl3:  shear  modulus  G13 
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f.  g2i:  diear  modulus  G23 

g.  wUUk  beam  cr  sfch  widdi 

17.  Hj^ies.pthick.  indude  for  composite 

a.  npUes'.  number  erf  [dies 

b.  pthick  ply  tfaiciaiess  (same  for  all  plies) 

18.  theta(nplies):  include  for  coaqxMite;  list  of  [dy  orientation  an^es  m  d^rees 

19.  radi  include  for  curved  ardi  (isarch^l);  arch  radius  oi curvature 

20.  ttforc:  number  of  nodal  resultant  forces  to  calculate 

21.  tforc(trforc):  include  only  forii^oroO.  dtrf  numbers  for  force  calculations 

22.  nrirer:  originally  to  find  stress  which  is  no  longer  included.  HllwitfaaO. 
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CJ  FOmANCodeUsting 


AU  areas  changed  for  large  rotatkm  have  a  Une  (tewn  in  die  ri^t  (xdimin 


program  beam 

c 

c  See  bottom  of  file  for  variable  and  subroutine  listing, 
c  This  version  is  nl  n2  updated  to  include  tangent  function 

c  remember  -e  coiqpile  option  (will  give  132  character  lines) 

implicit  double  precision  (a-h,o-z) 
character* 64  gname 
c 
c 

common /chac/gname, fname 
c 

common/elas/ae/de/ fe,he,e j,el/ re,te,as>ds, fs 
common/input/tol/ table (250) /delem(250) /vbound(2500) ,distld/ 

.  vconc  (2500)  /ey,enu,ht/el,e2/gl2,enul2/enu21,gl3,g23,pthic]c, 

.  rad, linear,  isotro,  isarch, ishape, inctyp, nine, imax, 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc,iconc(2500) , 

.  nplies,nforc, iforc(2500) ,nstres, istres (250) ,ibndry (2500) , 

.  theta (20) ,  idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 
c 

common/stf/stif (9, 9) ,elp(9) ,eln(9, 9) ,eld(9) 
c 

common/proc/gstif (2500, 9) ,gn(2500, 9) ,gf (2500) ,gd(2500) ,vperm(2500) 

9 

.  vpres(2500) 

c 

call  rinput 
call  elast 

if (inctyp. eq. 1) call  proces 
if (inctyp. eq. 2) call  rikspr 

Qit'k'k'k-k’k’k'k'k'k'kit'k'k'kii'k'k'k'k'k'k-k'k-k-kit-k'k'k'k'k'k'k-k'k-k'k'k'k'k'k'k'k'k'kit'k-kii-kitit'k'k-kit'kitifkitii'k-k'k'k'k'k-k 

C 

C  VARIABLES  FOR  BSHELL 
c 

c  fname  input  file 

c  gneune  output  file 

c  ae,de,  elasticity  terms 

c  fe,he,  elasticity  terms 

c  ej,el,  elasticity  terms 

c  re,te,  elasticity  terms 

c  as,ds,  elasticity  terms 

c  fs  elasticity  term 

c  ey  Young's  modulus  for  isotropic  case 

c  enu  Poisson's  ratio  for  isotropic  case 

c  ht  thickness  of  beam  for  isotropic  case 

c  el,e2,  laminate  material  properties 

c  gl2,enul2,  " 

c  enu21,gl3,  " 

c  g23  " 

c  pthick  l£uninate  ply  thickness 

c  nplies  number  of  plies  in  laminate 

c  theta (20)  ply  orientation  angles 
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c  tol  convergence  tolerance,  percent 

c  table (250)  displaceatent  increment  multiplicative 

c  factors 

c  delem(250)  element  lengths 

c  vbound(2500)  values  of  prescribed  displac«iient  boundary 

c  conditions 

c  distld  distributed  load  intensity 

c  vconc(2500)  concentrated  load  values 

c  rad  arch  radius  of  curvature 

c  linear  ■>!  for  linear  analysis,  -0  for  nonlinear 

c  isotro  “1  for  isotropic,  *0  for  laminate 

c  isarch  -1  for  arch,  -0  for  straight  beam 

c  ishape  ~1  to  print  x,y  coordinates  for  each  node  at  each 

increment 

c  when  a  full  arch  is  represented  output  to  file  'bshape' 

c  inclod  -1  to  increment  load(NA) ,  -0  increment  displacement 

c  nine  total  number  of  displacement  increments 

c  imax  maximum  number  of  iterations  per  increment 

c  nelem  total  number  of  elements  in  model 

c  nbndry  niunber  of  nodes  with  specified  boundary  conditions 

c  nbound(250, 5)  array  of  node  numbers  followed  by  I's  for 

c  fixed  b.c.'s,  zeros  for  unfixed 

c  Idtyp  =1  for  distributed  load,  -0  no  distributed  load 
c  nconc  total  number  of  concentrated  loads  input 
c  iconc(2500)  DOF's  for  specified  loads 

c  nforc  number  of  forces ( including  moments) to  be  solved  for 
c  iforc(2500)  DOF's  at  which  to  calculate  forces 

c  nstres  number  of  elements  for  stress  calculation 

c  istres(250)  element  f's  for  stress  calculation 

c  ibndry(2500)  DOF  numbers  for  b.c.'s 

c  idload(250)  elements  with  distributed  load 

c  coord(251)  coordinate  of  the  nodes 

c  width  beam  or  arch  width 

c  nnod  number  of  nodes 

c* ******************************************** ************************** 
itititif'kit 

C 

C  SUBROUTINES  FOR  BSHELL 

c 

c  rinput  reads  in  and  echos  input  data 

c  elast  confutes  elasticity  terms 

c  proces  drives  the  solution  algorithm  for  displacement  control 

c  rikspr  drives  the  solution  algorithm  for  Riles  method 

c  stiff  manages  stiffness  matrix  coxq>utations 
c  shape  con¥>utes  shape  function  array  dsf 
c  beamk  confutes  constant  stiffness  array  bmlc 

c  beamnl  conqputes  linear  stiffness  array  bmnl 

c  beamn2  computes  quadratic  stiffness  array  bmn2 

c  bndy  applies  displacement  boundary  conditions 

c  solve  solves  simultaneous  equations  in  banded  array  format 

c  converge  checles  solutions  for  convergence 

c  postpr  confutes  nodal  loads  and  sends  to  output  file 

c 

end 

c 

c 

c 

subroutine  rinput 
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c 

character*64  fnaiDe,gnaaie 
character*4  title 
dimension  title (20) 
inqplicit  double  precision  (a-h,o-z) 
c 

coimnon/chac/gname,  fname 

common/input/tol, table (250) ,delem(250) ,vbound(2500) ,distld, 

.  vconc(2500)  ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,923/pthic]c, 

.  radr linear, isotro, isarch, ishape, inctyp, nine, imax, 
nelem, nbndry,nbound(250, 5) , ldtyp,nconc, iconc (2500) , 

.  nplies,nforc, iforc (2500) , nstres, istres (250) , ibndry (2500) , 
theta(20) ,idload(250) , coord (251 ), width, nnod,pincr,eiter,ttpi 
c 

write (*, 1000) 

read(*, 1005) fname 

write (*, 1010) 

read  ( * ,  1 0 0 5 )  gneune 

open (5, file™ fname) 

open (6, file™gname, status™ 'new' ) 

read(5, 1015) title 

read(5, *) linear, isotro, isarch, ishape 
read (5, *) inctyp, nine, imax, kupdte, tol 

i f (linear . eq . 0 . and . inctyp . eq . 2 ) read ( 5, * ) pincr , eiter , ttpi 
if (linear .eq. 0 .and. inctyp.eq.l) read(5, *) (table (i) , i™l,ninc) 
read ( 5, *) nelem 

read(5,*) (delem(i) , i™i, nelem) 
c 

c  calculate  nodal  coordinates 

c 

nnod™nelem+l 
coord (1) =0.0 
do  5  ii=2,nnod 

5  coord(ii)™coord(ii-l) +delem(ii-l) 
read ( 5 , * ) nbndry 
do  10  i=l, nbndry 

10  read(5, *) (nbound(i, j) , j=l,5) 

ifdof™0 
c 

c  ifdof=counter  for  eniunber  of  fixed  dof's 

c 

do  20  i=l, nbndry 
do  20  j=2,5 

if  (nbound(i,  j)  .eq.Ogoto  20 
ifdof=ifdof+l 

ibndry (ifdof)=(nbound(i, 1) -1) *5  +  (j-1) 

20  continue 

read (5,*) (vbound (i) , i=l, ifdof) 

read(5, *) ldtyp,distld 

if (Idtyp.eq. 1) read(5, *) ndload 

if (Idtyp.eq. 1) read (5, *) (idload(i) ,i=l,  ndload) 

read (5, *)nconc 

if (nconc.ne.O) read(5, *) (iconc (i) , i=l,nconc) 

if (nconc.ne.O) read (5, *) (vconc(i) , i=l,nconc) 

if ( isotro. eq. 1) read (5, *) ey,enu,ht, width 

if (isotro. eq.O) read(5, *)el,e2,gl2,enul2,gl3,g23, width 

if (isotro. eq.O) read(5, *) nplies,pthick 

if (isotro. eq.O) read (5, *) (theta (i) , i“l,nplies) 


if (isarch.eq. 1) read(5, *) rad 
read(5/*)nforc 

i£(n£orc.ne.O) read (5, *) (i£orc(i)  ,i-l,n£orc) 
read (5, *)nstres 

i£(nstres.ne.O)  read (5,  *)  (iatresd)  ,i»l,nstres) 
c 

c  Echo  the  input  to  the  output  file 
c 

write (6, 1015) title 
if (isarch.eq.l) write (6, 1020) 
if (isarch.eq. 0) write (6, 1025) 
if (linear .eq. 1) write (6f 1030) 
if (linear .eq.O) write (6, 1035) 
if (isotro.eq. 1) write (6, 1040) 
if (isotro.eq. 0) write (€, 1045) 
if (ishape.eq. 1) write (6, 1050) 
if (inctyp.eq. 1) write (6, 1060) 
if (inctyp.eq.2) write (6/ 1055) 
write (6,1065) nine 
write (6, 1070) imax 
write (6, 1075) tol 

if (inctyp.eq.2)write(6, 1076)pincr,eiter,ttpi 
if (inctyp.eq. 1) write (6, 1078) 

if (inctyp.eq. 1) write (6, 1080) (table (i) , i =l,ninc) 
write  (6, 1085)nelein 
write (6, 1090) 

write (6, 1095) (coord (i) ,  i-l,nnod) 
write (6, 1100) 
write (6, 1105) 
do  30  i=*l,nbndry 

30  write (6, 1110) (nbound(i,  j) ,  j»l,5) 
write (6, 1115) ifdof 
write (6, 1120) (ibndry(i) ,i”l, ifdof) 
write  (6, 1095)  (vbound(i) ,  i”>l, ifdof ) 
if (ldtyp.eq.l)write(6, 1125)distld 
if (Idtyp.eq. 1) write (6, 1130) (idload(i) , i“l,ndload) 
if (nconc.ne.0)write(6, 1135) 

if  (nconc.ne . 0)  write  (6, 1120)  (iconc (i) ,  i=»l,nconc) 
if (nconc.ne. 0) write (6, 1095) (vconc(i) , i“l,nconc) 
if (isotro.eq. 1) write (6, 1 1 40) ey,enu,ht, width 
if (isotro.eq. 0) write (6, 1145)el,e2,gl2,enul2,gl3,g23, width 
if  (isotro.eq.  0)  write  (6, 1150)nplies,pthic]c 
if (isotro.eq. 0) write (6, 1155) (theta (i) , i=l,nplies) 
if (isarch.eq. 1) write (6, 1160) rad 
write  (6, 1165)  (iforc (i) ,  i=»l,nforc) 
write (6, 1170) (istres (i) , i*l,nstres) 
close (5) 
c  close (6) 

c 
c 

c  FORMATS 

c 

1000  f ormat  (' Enter  your  input  file  nanie.') 

1005  format (A) 

1010  format ( 'Enter  your  output  file  name.') 

1015  format (20a4) 

1020  format (/, lx, 'Element  type:  arch') 

1025  format (/, lx, 'Element  type:  straight  beam') 
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1030  fomiat  (/, lx, 'Analysis  type:  linear') 

1035  format (/, lx, 'Analysis  type:  nonlinear') 

1040  format (/, lx, 'Material  type:  isotropic') 

1045  format (/, lx, 'Material  type:  laminate ' ) 

1050  format (/, lx, 'Printout  of  nodal  x,y  coordinates  requested') 
1055  format  (/,  lx, 'Riles  method  specified') 

1060  format (/, lx, 'Displacement  control  method  specified') 

1065  format (/, lx, ' Increments  specified: ', 2x, i3) 

1070  format (/, lx, 'Maximum  iterations  specified: ', 2x,  i3) 

1075  format (/, lx, 'Percent  convergence  tolerance: ' ,2x,dl2 .5) 

1076  format (/,lx, 'pincr-' , 2x,dl2 . 5, 2x, 'eiter-' , 2x,dl2 . 5,2x, 

.  'ttpi“' , 2x,dl2 . 5) 

1078  format (/, lx, 'Displacement  Increment  Table') 

1080  format (8 (2x,dl2 .5) ) 

1085  format (/, lx, 'Number  of  elements :', 2x, i3) 

1090  format (/, lx, 'Nodal  Coordinates:') 

1095  format(8(2x,dl2.5)) 

1100  format (/, lx, 'DISPLACEMENT  BOUNDARY  CONDITIONS,  1-PRESCRIBED, 
XO-FREE ' ) 

1105  format (/,4X, 'NODE  V  PSI-S  W  W-S  ') 

1110  format (4x, i4,  lx,  4 (i3,2x) ) 

1115  format (/, lx, 'NUMBER  OF  PRESCRIBED  DISPLACEMENTS:', 

.  i5,/, lx, 'SPECIFIED  DISPLACEMENT  DOF  AND  THIER 

.  VALUES  FOLLOW: ') 

1120  format (16i5) 

1125  format (/, lx, 'Distributed  Load  Intensity: ', 2x,dl2 ,5) 

1130  format (/, lx, 'Elements  with  distributed  load: ' , /, lx, 16i5) 

1135  format (/, lx, 'DOF  and  specified  concentrated  loadsfollow: * ) 
1140  format (/, lx, ' Isotropic  material  properties  ey,  enu,  ht,  width 
,/,lx,4dl2.5) 

1145  format (/, lx, 'Composite  material  properties  el,  e2,  gl2,  enul2 
.  gl3,g23,  width: ' , /, lx, 7dl2 ,5) 

1150  format (/, lx, 'Number  of  plies: ',2x,i3,2x, 'Ply  thickness :', 2x, 

.  dl2.5) 

1155  format (/, lx, 'Ply  orientation  angles : ' , /, lx, 8 (2x,dl2 . 5) ) 

1160  format (/, lx, 'Radius  of  curvature: ', 2x,dl2 .5) 

1165  format (/, lx, 'DOFs  for  equivalent  load  calculation:',/, 
lx, 16i5) 

1170  format (/, lx, 'Elements  for  stress  calculation: ',/, lx, 16x5) 

1175  format (/, lx, i5) 
return 
end 
c 
c 
c 

subroutine  elast 
c 

in^jlicit  double  precision  (a-h,o-z) 
c 

dimension  qbar (3, 3) , rtheta (20) 
c 
c 

character* 64  gname 
common/chac/gname, fname 

common/elas/ae,de, fe,he,e j,el, re,te,as,ds, fs 
common/input/tol, table (250) ,delem(250) , vbound(2500) ,distld, 
vconc(2500) ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthick. 
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c 

c 

c 

c 

c 


c 

c 


.  rad, linear, isotro,  Isarch, ishape, inctyp, nine, inax, 

.  nelem,nbndry,nbound(250, 5) , Idtyp, nconc, iconc (2500) , 

.  nplies,n£orc, if ore (2500) ,n3tre8, istrea (250) , ibndry (2500) , 
theta (20) ,  idload(250) ,eoord(251) , width, nnod,piner,eiter,ttpi 


Isotropie  ease 

write  (6, 1000)el,e2,gl2,enul2,enu21,gl3,g23,pthie]c 
if (isotro.eq.O)goto  100 
gs-ey/ (2* (1+enu) ) 

denom-l .  -ei:u**2 
qll=ey/denom 
ql2=enu*ey/denoni 
q22-qll 

q2hat-q22- (ql2**2/qll) 

q34-gs 

ae=q2hat  *ht 

de=q2hat*ht**3/(3*2.**2) 
fe=q2hat*ht**5/ (5*2 . **4) 
he=q2hat*ht**7/ (7*2 . **6) 
e j=q2hat*ht**9/ (9*2 . **8) 
el=q2hat*ht**ll/ (11*2 . **10) 
re=q2hat*ht**13/ (13*2  **12) 
te=q2hat*ht**15/ (15*2. **14) 
as=qs4*ht 

ds=qs4*ht**3/ (3*2 . **2) 
fs=qs4*ht**5/ (5*2 . **4) 
goto  200 

Laminate  case 


c 

100  ht=pthick*nplies 

enu21=e2*enul2/el 
denom=l . -enul2*enu21 
ql  1 =e 1 / denom 
ql2=enul2  *e2 /denom 
q22=e2 /denom 
c 

Q************************************************** 

c  calculate  the  elasticity  matrices 
c 

c  remem  that  the  z  axis  points  down, 

c  however,  the  first  ply  is  the  top  ply,  ie, 
c  the  ply  with  the  most  negative  z  ! ! ! 

^*****************Hr***********i*r****^*************** 


C 

c  initialize  elasticity  terms 
c 

ae=0. 

de=0 . 
fe=0 . 
he=0 . 
e  j=0 . 
el=0. 
re=0. 

te=0. 

as==0. 
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da-O. 

fs-0. 

do  45  ii-l,npllea 

45  rtheta (ii) -theta (ii) *3 . 14159265/180 . 

do  50  kk-l,nplie3 

G^ar (1, 1) -qll* (coa (rtheta (kk) ) **4) +2*ql2* (ain (rtheta (kk) ) **2) * 
(coa (rtheta (kk) ) **2) +q22* (ain(rtheta (kk) ) **4) 

qbar  (1, 2)  -  (qll+q22)  *  (ain  (rtheta  (kk) )  **2)  *  (coa  (rtheta  (kk) )  **2)  + 
ql2* (sin (rtheta (kk) ) **4+cos (rtheta (kk) ) **4) 

qbar (2,2) -qll* (sin (rtheta (kk) ) **4) +2*ql2* (sin (rtheta (kk) ) **2) * 
(cos (rtheta (kk) ) **2)+q22*cos (rtheta (kk) ) **4 
qs4=gl3*dcos (rtheta (kk) ) **2+g23*dsin (rtheta (kk) ) **2 
q2hat-<#5ar(2,2)-(qbar(l,2)**2/q^ar(l,l) ) 
zl=(kk*l.  -  nplies* .5) *pthick 
2u=zl-pthick 
ae=ae  +  q2hat*pthick 
de-de  +  q2hat* (zl**3-zu**3) /3. 

fe-fe  +  q2hat* (zl**5-zu**5) /5. 
he=he  +  q2hat* (zl**7-zu**7) /7 . 
ej-ej  +  q2hat* (zl**9-zu**9)/9. 
el-el  +  q2hat*(zl**ll-zu**ll)/ll. 

re-re  +  q2hat* (zl**13-zu**13) /13 . 
te=te  +  q2hat* (zl**15-zu**15) /15. 
as=as+qs4*pthick 

ds-ds+qs4* (zl**3~zu**3) /3. 
fs=fa+qa4* (zl**5-zu**5) /5 . 

50  continue 

c  200  open(6,  fiel“gnaine,status='old') 

200  write (6, 1000) ae,de, £e,he,e j,el, re,te, as,ds, fs 
c  close (6) 

1000  format (/, lx, 'Elasticity  terms: ' , /, lx, 8 (2x,dl2 . 5) ) 
return 
end 
c 
c 
c 

subroutine  proces 
c 

inplicit  double  precision  (a-h,o-z) 
c 

character* 64  gname 
c 
c 

common/chac/gname, fname 
c 

common/elas/ae,de, £e,he,ej,el, re,te,as,ds,fs 
c 

common/input/tol, table (250) ,delem(250) , vbound(2500)  ,distld, 
vconc(2500) ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthick, 
rad, linear, isotro, isarch, ishape, inctyp, nine, imax, 
nelem,nbndry,nbound(250,5) , ldtyp,nconc, iconc (2500) , 
nplies, nf ore, if ore (2500) ,nstres, istres (250) , ibndry (2500) , 
theta (20) , idload(250) , coord (251) , width, nnod,pincr,eiter,ttpi 
common/stf /stif (9, 9) ,elp(9) ,eln(9, 9) ,eld(9) 
c 
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common/proc/gstif  (2500, 9)  ,gn(2500,  9)  ,g£(2500)  ,g(i(2500) ,  vpem(2500) 

$ 

.  vpre8(2500) 

c 

ndo  f  onnod*  4  -t-ne  lem 

ncount-1 

icount-l 

do  1  ii<-l,ndo£ 

1  gd(ii)-0.0d0 

do  2  ii“l,nbndry*5 
vpres (ii) -0 . OdO 

2  vpemi(il)-^d>ound(ii) 
c 

c  start  new  increment  or  iteration/ 

c  zero  out  global  stiffness  matrices  and  global  force 
c  vector 

c 

3  do  5  ii“l,ndof 
gf {ii)-0.0d0 
do  5  jj-1,9 
gstif  (ii,  j  j)=“0-0d0 

5  gn(ii, j j)“0.0d0 

kcall-0 
c 

c  increment  prescribed  displacement  for  displacement  control 

c 

if (linear. eq. 1) goto  9 
if (icount.ne.l)goto  9 
do  7  ii-l,nbndry*5 

if (ncount ,eq.l) vbound(ii)=vperm(ii) *table (1) 

7  if (ncount .gt . 1) vbound(ii)*vp€rm(ii) * (table (ncount) - 
.  table (ncount-1) ) 

c 

c  loop  over  all  elements  for  stiffness  and  forces 
c 

9  do  30  ielem-l,nelem 
do  10  ii^lfO 

10  eld(ii) =gd(ii+ (ielem-1) *5) 
c 

kcall=kcall+l 

call  stiff (ielem,icount, ncount, kcall) 
c 

c  Assemble  global  stiffness  array,  gstif,  global  equilibrium 
c  stiffness,  gn,  in  banded  form.  Half-bandwidth=9 .  Also 
c  assemble  global  force  vector,  gf. 
c 

nr= (ielem-1) *5  +  1 
do  30  jj=0,8 

gf (nr+ j  j ) -gf (nr+ j  j ) +elp ( j  j+1) 
do  30  kk=“l,9-jj 

gstif (nr+ j j,kk) ^gstif (nr+j j,kk) +stif ( j j+l,kk+ j j) 
if (linear .eq. 1) goto  30 

if (icount .eq. 1  .and.  ncount .eq. 1) goto  30 
gn (nr+ j  j , kk) =gn (nr+ j  j , kk) +eln ( j  j+1, kk+ j  j ) 

30  continue 
c 

c  iitpose  force  boundary  conditions 

c  at  this  point,  gf*R 
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if (nconc.eq.O)goto  45 
do  40  ii>l,nconc 
nb-iconc(il) 

40  g£(nb)"^£(nb)-t-vconc(il) 

45  continue 

calculate  the  residual  £orce  vector  £or  nonlinear 
analysis .  - [gn]  * {gdl+R—  [lc+nl/2+n2/3]  * {q}+R-g£ 

i£(icount.eq.l)goto  €5 
do  60  ii-l,ndo£ 
add-0. 

do  50  kk-l,ii-l 
i£(ii-kk+l  .gt.  9) goto  50 
addoadd-fgn  (kk,  ii-kk-fl)  *gd  (kk) 

50  continue 

res-0 . 
do  55 

i£(jj+ii-l  .gt.  ndo£)goto  55 
res-res  +  gn(ii, j j) *gd( j j+ii-1) 

55  continue 

add  to  existing  g£  which  already  contains  R 

g£ (ii) *gf (ii) -res-add 
60  continue 
65  continue 

in^ose  displacement  boundary  conditions 

i£  (icount  .eq.  1)  call  bndy  (ndo£,gsti£rgf ^nbndry,  ibndryf'tdsound) 
i£ (icount .gt . 1) call  bndy (ndof ,gsti£,g£,nbndry, ibndry,vpres) 

solve  system  of  equationSf  result  in  gf 

call  solve (ndof ,gstif,gf ,  O^detro, detml) 

update  total  displacement  vector  gd 

do  70  ii=l,ndof 
70  gd(ii)*gd(ii)+gf (ii) 
if (linear. eq. l)goto  80 

call  converge  (ndof,ncon/  icount^^tol/  imax) 

if  no  convergence  (ncon=0)  start  next  iteration 

if (ncon.eq.O)goto  3 
80  continue 

i£(ncon.eq.l  .and.  ncount.le. nine) then 
call  pos tpr ( icount , ncount , kcal 1 , ndo £ ) 
if (ncount .eq. nine) stop 
ncount  >=ncount + 1 
icount”! 
goto  3 
endif 
return 
end 


c 

subroutine  bndy (ndof #  s, sl^ ndun, idum, vdum) 
c 

c  . 

c  subroutine  used  to  impose  boundary  conditions  on  banded  equations 

c  . 

c 

implicit  double  precision  (a-h,o-z) 

dimension  s (2500, 9) , si (2500) 

dimension  idum(ndum*5) , vdum(nduffl*5) 

do  300  nb  1/  ndum*5 

ie  *  idum(nb) 

sval  -  vdum(nb) 

it-8 

i-ie-9 

do  100  ii-l,it 
i-i+1 

if  (i  .It.  1)  go  to  100 
j“ie-i+l 

si  (i)  “Sl  (i)  -s  (i,  j)  *sval 
3 (i, j)-0.0 
100  continue 
3(ie,l)»1.0 
si (ie) -sval 
i»ie 

do  200  ii-2,9 
i-i+1 

if  (i  .gt.  ndof)  go  to  200 
si (i)-sl (i) -3 (ie, ii) *3val 
3(ie,ii)=0.0 
200  continue 
300  continue 
return 
end 
c 
c 
c 
c 

subroutine  converge (ndof, neon, icount, tol, imax) 

. . 

c  checks  for  convergnece  using  global  displacement  criterion 

. . 

inplicit  double  precision  (a-h,o-z) 

common/proc/gstif (2500, 9) ,gn(2500, 9) ,gf (2500) ,gd(2500) ,vperm(2500) 

/ 

vpres(2500) 

c 

rcurr=0 . 
do  10  m=l,ndof 

10  rcurr-rcurr  +  gd(m)*gd(m) 
if (icount .eq. 1) rinit-rcurr 
i f ( icount . eq . 1 ) ncon=0 
if (icount. eq.l) goto  20 
c  new  criteria 

ratio-100.  *  abs (sqrt (rcurr) -sqrt (pvalue) ) /sqrt (rinit) 
i f ( ratio . le . tol ) ncon=l 
20  pvalue-rcurr 

write (*, 100) neon, ratio, rinit, rcurr 
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100  foxant (lx, 'neon*  ',i3r3x, 'ratio-  ',<114.6,'  rlnlt-  ',dl4.6, 

X  '  rcurr-  ',dl4.6) 

if (Icount .oq. iaax) wxita ( 6, 200) 
if  (icount  .eq.  xouuc)  atop 
200  format  (lx, 'icount  equals  iaiax') 
i  f  (neon .  eq .  0 )  icount-icount-t-1 
return 
end 
c 
c 
c 

subroutine  rikspr 
c 

iiqplicit  double  precision  (a-h,o-K) 
c 

character* 64  gname 
c 
c 

cornnon/chac/gname, fname 
c 

coimnon/elas/ae,de, fe,he,e j,el, re,te,as,ds, fs 
c 

common/input/tol, table (250) ,delem(250) ,vbound(2500) ,distld, 

.  vconc(2500)  ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthic]c, 

.  rad, linear, isotro, isarch, ishape, inctyp, nine, imax, 

.  nelem,nbndry,nbound(250,5) ,ldtyp,nconc, iconc(2500) , 

.  nplies,nforc, iforc(2500) ,nstres, istres (250) , ibndry (2500) , 

.  theta (20) ,idload(250) , coord (251) , width,  nnod,pincr,eiter,ttpi 
common/stf/stif (9, 9) ,elp(9) ,eln(9, 9) ,eld(9) 
c 

coromon/proc/gstif (2500, 9) ,gn(2500, 9) ,gf (2500) ,gd(2500) ,wperm(2500) 


.  vpres(2500) 

c 

dimension 

gld\2500) ,gld0 (2500) ,gldl (2500) ,gdis (2500) ,gsti00 (2500, 9) , 
gfO (2500) , gdOO (2500) 
ndo  f-nnod*  4 +ne lem 
ncount-1 
icount=l 
iicut“0 

do  1  ii-l,ndof 

1  gd(ii)-0.0d0 

do  2  ii“l,nbndry*5 
vpres (ii) -0 . OdO 

2  vperm(ii)-Td)ound(ii) 
c 

c  start  new  increment  or  iteration/ 

c  zero  out  global  stiffness  matrices  and  global  force 

c  vector 

c 

tpincr-0 . 0 

if (ncount.eq.l)goto  2993 
c 

c  start  new  increment 

c 

3  if (iicut .eq. 0) dss-dss*eiter/icount 

2993  icount“l 
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do  2992  il-l,ndof 
9ld0(il)-0.0d0 
2992  9d00(ii)-9d(ii) 
c 

c  start  n«w  itaration 

c 

4  do  5  ii<-l,ndof 
g£0{ii)-0.0d0 
do  5  jj»l,9 

gst if ( ii, j  j ) “0 . OdO 

5  gn(ii, j j)-0.0d0 
kcall-0 

c 

c  increment  prescribed  displacement  for  displacement  control 
c 

c  if (linear. eq.l) goto  9 

c  if (icount.ne.l)goto  9 

c  do  7  ii-l,nbndry*5 

c  if  (ncount  .eq.  1  .and. iicut  .eq. 0)'^d>ound(ii) ■nq>erm(ii)  *table  (1) 
c  7  if (ncount. gt.l. or. iicut. gt. O)vbound(ii)**vperm(ii) *(table(ncount)- 
c  .  table (ncount-1) ) 
c 

c  loop  over  all  elements  for  stiffness  and  forces 
c 

9  do  30  ielem-1 , nelem 

do  10  ii-1,9 

10  eld(ii)“gd(ii+(ielem-l) *5) 
c 

kcall**lccall-t-l 

call  St if f ( ielem,  icount $ ncount , kcall ) 
c 

c  Assemble  global  stiffness  arrays  gstif,  global  equilibrium 
c  stiffness^  gn,  in  banded  form.  Half-bandwidth«*9.  Also 
c  assemble  global  force  vector,  gf. 
c 

nr- (ielem-1) *5  +  1 
do  30  jj-0,8 

gfO (nr+j j)-gf0(nr+j j)+elp( j j+1) 
do  30  kk-l,9-jj 

gstif  (nr+j  j ,  kk)  -gstif  (nr+ j  j,  )ck)  +stif  ( j  j+1 ,  kk+ j  j ) 
if (linear. eq.l) goto  30 

if  (icount. eq.l  .and.  ncount  .eq.l  .and.iicut  .eq.Ogoto  30 
gn (nr+ j  j , kk) -gn (nr+j  j , kk) +eln ( j  j+1, kk+ j  j ) 

30  continue 
c 

c  in^se  force  boundary  conditions 

c  at  this  point,  gf-R 

c 

if (nconc.eq.O)goto  45 
do  40  ii-l,nconc 
n]3-iconc  (ii) 

40  gfO (nb)-gfO (nb) +vconc(ii) 

45  continue 

do  47  ii-l,ndof 

47  gf (ii)-gfO(ii) 
do  48  ii-l,ndo£ 
do  48  jj-1,9 

48  gstiOO (ii, jj) -gstif (ii,  jj) 
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call  bii4]r<ndo£/g8tlf,9frnbodry,ibodry,vbmind) 
c 

call  8Olv«<ndo£,98tl£,9f«0,<ieta,datad.) 

d880»0 . 0 

do  49  ii«l,ndo£ 

9di8  (ii) 

49  d880»d8a0-^9£(ii)  *9f  (ii) 

if (icount.ne.l)  go  to  144 
detial-detfli2 
detin2-d«ta 

i£(ncount .eq.l.and.detm.lt.O.O  .and.iicut .eq.O)  pincr—pincr 
if  (ncount  .eq.  1 . and. iicut .eq. 0)  ds8'-pincx*dsqrt  (dssO) 
if (ncount . ne . 1 . or . iicut .gt . 0)  pincr- 
dss/daqrt  (dsaO)  *detm*detiBl 

.  *pincrl/dab8 (pincrl) 

c 

c  attoopt  at  offloading  at  bifurcation  points 

c 

c  if  (iicut.  eq.Dpincr—pincr 

c 

pincrl-pincr 


pra-0 .0 

do  142  ii>l/ndof 

142  pra-pra+gfO (ii) *gld(ii) 
atifpa-pincr*pra 

do  143  ii-l,ndof 

143  gld(ii)-pincr*gdia (ii) 

144  continue 
c 

c  calculate  the  reaidual  force  vector  for  nonlinear 

c  analyaia.  -[gn]*{gd}+R«-[k+nl/2+n2/3]*iq)+R«gf 

c 

if (icount .eq. l)goto  €9 
do  60  ii«l,ndof 
add-0 . 

do  50  kk-l,ii-l 
if(ii-kk+l  .gt.  9) goto  50 
add-add+gn  (Ick,  ii-kk+1)  *gd(kk) 

50  continue 

rea*0 . 
do  55  jj«l,9 

if(jj+ii-l  .gt.  ndof)goto  55 

res=‘rea  +  gn  (iir  j  j)  *gd(  j  j+ii-1) 

55  continue 

c 

c  add  to  exiating  gf  which  already  containa  R 
c 

gf (ii) -gf 0 (ii) * (pincr+tpincr) -rea-add 
60  continue 
65  continue 
c 

c  iiig>oae  diaplacenent  boundary  conditiona 

c 

call  bndy (ndof /gati00,gf ,nbndryr ibndry, '^dx>und) 
c  if (icount. gt.l) call  bndy (ndof,gstifrgf,nbndry, ibndry,vprea) 

c 
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n  o 


aolw  systoa  of  equatlona,  result  in  gf 

cell  8olve(ndof,gstlf,g£, l,detm,detaU.) 

c  through  line  69  copied  from  Tsai's  program 
c 

al-dssO 

a2-0.0 

a3«0.0 

do  147  ii-l,ndof 
a2->a2-t-(gld(ii)>gf  (ii)  )*gdis(ii) 

147  a3-a3+gf (ii) * (2 . 0*gld(ii) +gf (ii) ) 
dl2-a2*a2-al*a3 

c  write(6,*)  dl2,alra2,a3 

c 

c 

if (dl2 . It . 0 . 0) then 
c 

c  deal  with  complex  roots  by  cutting  the  search 
c  radius  (dss)  in  half 

c 

do  2991  ii-l,ndof 
2991  gd(ii)^d00(ii) 
iicut»iicut  +  1 
if (iicut .gt . 10) then 
write (6, 3000) 
stop 
endif 
dss-dss/2.0 
goto  3 
endif 
iicut«0 

dpincl»(-a2+dsqrt (dl2) ) /al 

dpinc2“ (-a2-dsqrt (dl2 ) ) /al 

thetal»0.0 

theta2-0 . 0 

do  148  ii»l,ndof 

gld0(ii)^ld(ii) 

gld(ii)  -gld{ii)  +gf  (ii)  -K^jincl^gdis  (ii) 
gldl  (ii)  ^IdO  (ii)  -t^f  (ii)  -K4>inc2*gdis  (ii) 
thetal»thetal->^ld0  (ii)  *gld(ii) 
theta2-theta2-t^ld0  (ii)  *gldl  (ii) 

148  continue 

c  write (6,*)  thetal,theta2 

thetl2»thetal*theta2 
if (thetl2.gt.0.0)  go  to  149 
<4>incr*c4>incl 

i£(theta2.gt.0.0)  call  chsign (gld,gldl,(4>incr,dpinc2rndof ) 
go  to  150 

149  dpib— a3/(a2*2.0) 
dpinl-dabs  (dpib-<4>incl) 
dpin2^abs  (d^ib-<4>inc2) 
dpincr>Hj[pincl 

if (dpin2 . It .dpinl)  call  chsign(gld,gldl,dpincr,dpinc2,ndof) 

150  pincr»«pincr+<4>incr 
69  continue 

c 

c  update  total  displacement  vector  gd 
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c 

do  70  li-l,odof 

70  9d(li)-^(ii)4gld(ll)-9ld0(ii) 
if <llnear.«q.l)goto  80 

call  convergv (ndof , neon, Icount , tol,  iaax) 
c 

c  if  no  convergence  (ncon*>0)  start  next  iteration 
c 

if (ncon.eq.O)goto  4 
80  continue 

if(ncon.eq.l  .and.  ncount.le. nine) then 
call  postpr ( icount , ncount, kcall, ndof ) 
if (ncount .eq. nine) stop 
ncount-ncount+1 
tpincr-tpincr+pincr 
goto  3 
endif 

3000  format (lx, 'More  than  10  consecutive  imaginary  roots') 
3010  format (/, lx, 12) 
return 
end 
c 
c 
c 

subroutine  solve (ndof, band, rhs, ires, detm, detml) 

c  . 

c  solve  a  banded  symmetric  system  of  equations 

c  . . . 

c 

implicit  double  precision  (a-h,o-z) 
dimension  band (2500, 9) , rhs (2500) 
meqns-ndof-1 
if (ires. gt.O) goto  90 
do  500  npiv-l,meqns 
c  print*, 'npiv-  ',npiv 

npivot-npiv+1 
1 s t sub-npi v+ 9- 1 

if (Istsub.gt .ndof)  Istsub-ndof 
do  400  nrow=npivot, Istsub 
c  invert  rows  and  columns  for  row  factor 
ncol**nrow-npiv+l 

factor“'band(npiv,ncol)  /band(npiv,  1) 
do  200  ncol-nrow, Istsub 
icol=ncol-nrow+l 
jcol=ncol-npiv+l 

200  band(nrow, icol) =band(nrow, icol) -factor*band(npiv, jcol) 
400  rhs (nrow) =rhs (nrow) -factor*rhs (npiv) 

500  continue 
detm^^l .  0 
detml=0 . 0 
do  600  ii“l,ndof 

c  write  (*,*)  'BAND ( ' , ii, ' 1) -' ,band(ii, 1) 

detml=detml+dlogl0 (dabs (band(ii, 1) ) ) 

600  detm*detm*band(ii, 1) /dabs (band(ii, 1) ) 
go  to  101 

90  do  100  npiv-l,meqns 
npivot=npiv+l 
lstsub-npiv+9-1 
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Ifdstaub.gt .ndof)  Istsub^ndof 
do  110  nrow^npivot, Istsub 
ncol“nrow-npiv+l 

factor-band (npiv,ncol) /band(npiv, 1) 

110  rhs (nrow) -rhs (nrow) -factor*rh8 (npiv) 

100  continue 
c  back  aubatitution 
101  do  800  ijk-2,ndo£ 
npiv-ndof-ijk+2 

rha  (npiv)  -rha  (npiv)  /band  (npiv,  1) 

lataub-npiv-9+1 

ifdataub.lt.l)  lataub-1 

npivot“npiv-l 

do  700  jki‘-lataub,npivot 

nro*r-npivot-jki+lataub 

ncol“npiv-nrow+ 1 

£actor>band (nrow, ncol) 

700  rha (nrow) -rha (nrow) -£actor*rha (npiv) 

800  continue 

rha  (1)  -rha  (1)  /bandd,  1) 
return 
end 
c 
c 
c 

subroutine  chaign (gld, gldl, d^incr, dpinc2, ndof) 
implicit  double  precision  (a-h,o-z) 
dimension  gld(2500) ,gldl (2500) 
do  100  i»l,ndof 
100  gld(i)-gldl(i) 

<4>incr-dpinc2 

return 

end 

c 

c 

c 

subroutine  stiff (ielem,  icount,ncount,kcall) 
c 

inplicit  double  precision  (a-h,o-z) 
character* 64  gname 
common/chac/gname, fname 
c 

common/input/tol, table (250) ,delem(250) , vbound(2500) ,distld, 
vconc(2500) ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthick, 
rad, linear, isotro, isarch, ishape, inctyp, nine, imax, 

.  nelem,nbndry,nbound(250,5) , ldtyp,nconc, iconc (2500) , 

.  nplies,n£orc,i£orc(2500) ,nstres, istres (250) , ibndry (2500) , 

.  theta(20) ,idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 
c 

conitaon/elas/ae,de,  £e,he,e  j,el,re,te,as,ds,  fs 
c 

common/stf/stif (9, 9) ,elp(9) ,eln(9, 9) ,eld(9) 
c 

common/shp/dsf (7, 9) 
c 

dimension  kank  (7, 7)  ,bmnl  (7, 7)  ,binn2  (7,  7)  , 

.  gauss4 (4) ,wt4 (4) ,gauss7 (7) ,wt7 (7) ,q(7)  ,d3ftr (9, 7) , 

pkt(7,7),pkn(7,7),pktd(7,9),pknd(7,9),gauss5(5),wt5(5) 
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c 

data  gausai/O . 861136311SdO, 0 . 3399810435d0, -0 . 33998l0435d0, 
-0.8611363115d0/ 

data  wt 4/0 . 3478548451d0, 0 . 6521451S48d0, 0 . 652l451548d0, 
0.3478548451d0/ 

data  gauss5/0 . 9061798459d0, 0 . 5384693101d0, 0 . OdO, -0 . 5384693101d0, 
-0.9061798459d0/ 

data  ttt5/0.2369268851d0,0.4786286705d0,0.5688888889d0, 
0.4786286705d0,0.2369268851d0/ 
data  gauss7/0.9491079123d0,0.7415311856d0,0.4058451513d0^ 

0 . OdO, -0 . 4058451513d0, -0 .7415311856d0, -0 . 9491079123d0/ 
data  wt7/0 . 1294849662d0, 0 .2797053915d0, 0 . 3818300505d0, 

0 . 4179591836d0, 0 . 3818300505d0, 0 .2797053915d0, 0 . 1294849662d0/ 
c 

c  initialize  stiffness  arrays  and  load  array 
c 

do  10  ii*l/9 
elp(ii)’"0.0 
do  10  jj-1,9 
stif (ii, j j)“0.0 
10  eln (ii, j j) -0 . 0 
c 

c  set  number  of  gauss  points  for  interpolation 
c 

ngp-5 

if (ncount.eq.l  .and.  icount .eq. 1) ngp»4 
if (linear .eq. 1) ngp»4 
c 

ekl=-4./(3.*ht**2) 
if  (isarch.eq.l)  pl“l./rad 

if (ncount.eq. 1  .and.  icount.eq.l  .and.  kcall.eq.l  .and. 
isarch.eq.l) 

.  call  beamk (bmk,ekl,pl) 

if (ncount .eq. 1  .and.  icount.eq.l  .and.  kcall.eq.l  .and. 
isarch.eq. 0) 

.  call  sbeamk  (bink,ekl) 

c 

c  loop  over  gauss  points 
c 

do  100  ii=l,ngp 
if (ngp.eq.4)eta=gauss4 (ii) 
if (ngp.eq.5)eta»gauss5 (ii) 
if (ngp.eq.7)eta=gauss7 (ii) 
call  shape (eta, ielem, aa) 
c 

c  multiply  element  displacement  vector,  eld  (this  is  'q' 

c  in  the  thesis)  by  the  shape  function  matrix,  dsf,  to  get 
c  the  displacement  gradient  vector (d(s)  in  thesis,  q  here) 
c 

do  20  kk=l,7 
20  q(kk)=0.0 
c 

do  30  jj=l,7 
do  30  kk=l,9 

30  q(jj)=q(jj) +dsf ( j  j , kk) *eld (kk) 
c 
c 

c  initialize  bronl,  l3mn2 
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c 


35 


c 

c 

c 


c 


37 


c 

c 

c 


40 


c 

c 

c 

c 


50 


c 

c 

c 


60 


c 

c 

c 

c 

c 

c 

c 

c 

c 


70 

100 


do  35  kk-1,7 
do  35  jj-1,7 
bnnl(jj,]ck)-0.0d0 
bnn2  ( j  j,kk)-0.0d0 

akip  bmnl  and  biiin2  con^a  firat  time  through 

ifdcount  .eq.  1  .and.  ncount  .eq.  Dgoto  37 

if  (iaarch.eq.l)call  beamnl (q,bianl,ekl/pl) 
if  (iaarch.eq.Dcall  beainn2 (q,bmn2,ekl,pl) 
if  (iaarch.eq.O)call  alwinl  (q,bninl,ekl) 
if (iaarch.eq.O)call  abmn2 (q,laBn2,ekl) 
continue 

tranapoae  the  ahape  function  matrix 

do  40  jj-1,7 
do  40  kk-1, 9 

daftr (kk, j j)-d3f ( j j,kk) 

create  element  independent  incremental  atiffneaa  array, 
pkt,  and  element  ind.  equilibrium  atiffneaa  array,  pkn 

do  50  jj”l,7 
do  50  kk=>l,7 

pkt  ( j  j,kk)-bmk(  j  j,kk)  -t-bmnl  ( j  j,kk)  +t»nn2  ( j  j,kk) 
pkn(  j  j,kk)=bmk(  j  j,kk)  -i-bmnl  ( j  j,kk)  /2.+hmn2  ( j  j,kk)  /3 . 

poat-multiply  each  array  by  the  ahape  function  matrix 

do  60  jj“l,7 
do  60  kk-1,9 
pktd( j j,kk)*0.0 
pknd ( j  j , kk) *0 . 0 
do  60  11=1,7 

pktd( j j,kk) =pktd( j j,kk)  +  aa*pkt ( j j, 11) *dsf (ll,kk) 
pknd{ j j,kk)=pknd( j j,kk)  +  aa*pkn( j j, 11) *dsf (ll,kk) 

Finally,  pre-multiply  theae  new  arraya  by  the  tranapoae 
of  the  shape  function  matrix  to  get  the  element  incremental 
stiffness,  stif,  and  element  equilibrium  stiffness,  eln. 
Also  multiply  by  the  weighting  factor  for  this  particular 
gauss  point.  Note  that  these  arrays  are  zeroed  outside  the 
loop  over  the  gauss  points  since  they  accumulate  (integrate) 
data  over  all  the  gauss  points. 

if (ngp.eq.4)wt=wt4 (ii) 
if {ngp.eq.5) wt-wt5 (ii) 
if (ngp.eq.7)wt=wt7 (ii) 
do  70  jj“l,9 
do  70  kk-1,9 
do  70  11=1,7 

stif ( j j,kk) =stif ( j j,kk) +wt*width*dsftr ( j j, 11) *pktd(ll,kk) 
eln ( j  j , kk) =eln ( j  j , kk) +wt *width*dsftr ( j  j , 11) *pknd ( 11, kk) 
continue 
continue 
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c  write (6, 1010) ielem 

c  write (6, 1005) 

c  do  900  ii-1,9 

c900  write (6, 1000)  (stif (ii, j j) , j j-1, 9) 

1000  fonnat(9(2x,dl2.5)) 

1005  format  (/, 'stif  ) 

1010  format (i4) 
return 
end 
c 
c 
c 

subroutine  shape (eta, ielem, aa) 
c 

in^jlicit  double  precision  (a-h,o-z) 
c 
c 

common/shp/dsf (7, 9) 
c 
c 

common/input/tol, table (250) ,delem(250) ,  vbound (2500)  ,distld, 
vconc(2500)  ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthic]c, 

.  rad, linear, isotro, isarch, ishape, inctyp,ninc, imax, 
nelem, nbndry,nbound(250, 5) , ldtyp,nconc, iconc (2500) , 
nplies, nforc, iforc (2500) ,nstres, istres (250) , ibndry (2500) , 

.  theta (20) , idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 
c 

c  initialize  shape  function  matrix 

c 

do  10  ii=l,7 

do  10  jj-1,9 

10  dsf (ii, jj)=0.0 
c 

aa= (coord (ielem+1) -coord (ielem) ) *0.5 
c 

c  enter  values  into  dsf 

c  these  include  jacobian  terms 

c 
c 

c  Q1,Q3,Q2  and  derivatives 

c 

dsf (1, 1) =0 . 5* (eta**2-eta) 

dsf (l,5)=1.0-eta**2 

dsf (1, 6) =0.5* (eta**2+eta) 

dsf (2, 1)= (eta-0.5) /aa 

dsf (2,5) =-2 . 0*eta/aa 

dsf (2,6)= (eta+0 . 5) /aa 

dsf (3, 3) =0 .25* (2 . 0-3 . 0*eta+eta**3) 

dsf (3, 4) =0 . 25*aa* (1 . 0-eta-eta**2+eta**3) 

dsf (3, 8) =0 .25* (2 . 0+3 . 0*eta-eta**3) 

dsf (3,9) -0 .25*aa* (-1 . 0-eta+eta**2+eta**3) 

dsf (4, 3) =0.25* (-3.0+3.0*eta**2)/aa 

dsf (4, 4) =0.25* (-1 . 0-2 . 0*eta+3 .0*eta**2) 

dsf (4, 8) =0.25* (3 . 0-3 . 0*eta**2) /aa 

dsf (4, 9) =0 .25* (-1 . 0+2 . 0*eta+3 . 0*eta**2) 

dsf (5,3)=0.25*6.0*eta/aa**2 

dsf (5,4)«0.25*(-2.0+6.0*eta)/aa 

dsf (5,8) =-0 .25*6. 0*eta/aa**2 
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dsf (5, 9) -0.25* (2 .O+S.O^eta) /aa 
d3f( 6, 2) -0.5* (1.0-eta) 
dsf (6,7)-0.5*(l  0+eta) 
daf  (7,2)— 0.5/aa 
dsf (7,7)-0.5/aa 
c 

c  tenqporary  print 

c 

c  do  100  ii-1,7 

c  100  write (6, 1000)  (daf (ii, j j) , j j-1, 9) 
c  1000  format  (9 (2x,dl2 .5) ) 

return 
end 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


aubrout ine  poatpr ( icount , ncount ,  Iccall, ndof ) 
in^licit  double  preciaion  (a-h,o-z) 
character*64  gname 


common/chac/gname, fname 

common/elaa/ae/de, fe,he,ej,el,re,te,aa,da, fa 

common/input/tol, table (250) ,delem(250) , vbound(2500) ,diatld, 
vconc(2500)  ,ey,enu,ht,el,e2,gl2,enul2,enu21,gl3,g23,pthic]c, 
rad, linear, iaotro, iaarch, iahape, inctyp, nine, imax, 
nelem,nbndry, nbound(250, 5) ,  Idtyp,  nconc,  iconc (2500) , 
nplies,nforc, iforc (2500) ,n3tre8, iatrea (250) , ibndry (2500) , 
theta (20) , idload(250) ,coord(251) , width, nnod,pincr,eiter,ttpi 

common/stf/atif (9, 9) ,elp(9) ,eln(9, 9) ,eld(9) 

common/proc/gatif (2500, 9) ,gn (2500, 9) ,gf (2500) ,gd(2500) ,vperm(2500) 


r 

.  vpre3(2500) 

c 

dimenaion  vforc(2500) ,xcoord(251) ,ycoord(251) 
pi=3. 14159 
c 

c  if  iahape-l  print  global  x,y  coorda  to  file  bshape 
c  if  i3hape=2  figure  out  ayrometric  coorda  aa  well 
c 

if  (iaarch. eq.O)  then 
go  to  423 
end  if 

if ( iahape . eq . 1 . or . iahape . eq . 2 . and . ncount . eq . 1 . and . iaarch . eq . 1 ) then 
open (8, file- ’bahape ' ,3tatu3=' new' ) 
do  1  ii=l,nnod 
if (iahape. eq. 2) then 

xcoord(nnod-l+ii) =rad*cos (pi/2.0-coord(ii) /rad) 
xcoord (nnod+l-ii) — rad*co3 (pi/2 . 0-coord (ii) /rad) 
ycoord (nnod-l+ii) =rad*sin (pi/2 . 0-coord (ii) /rad) 
ycoord (nnod+l-ii) -ycoord (nnod-l+ii) 
elae 


C-25 


xcoord  (il)  — radices  (pi/2 . 0-fcoord  (ii)  /rad- 
coord  (nnod)  / (2*rad) ) 

ycoord(ii) «rad*8in (pi/2 . 0-H:oord(ii) /rad-coord (nnod) / (2*rad) ) 
endif 

1  continue 

do  100  ii-l,nnod 

100  write(8f 2000)xcoord(ii) fycoord(ii) 

if (ishape.eq.2) then 
do  110  ii-2»nnod 

110  write(8,2000)xcoord(nnod+ii-l) ,ycoord(nnod+ii-l) 

endif 

write (8,2010) 

endif 

c 

c  global  displacements  for  straight  beams 
c 

423  if (ishape .eq. 1 .and.ncount .eq. l.and. isarch.eq.O) then 
open (8, file- 'bshape ' , status- 'new' ) 
do  2  ii-l,nnod 

xcoord (ii) -  coord (nnod) -coord (ii) 
ycoord(ii)=0.0 

2  write(8,2000)xcoord(ii) ,ycoord(ii) 
write (8,2010) 

endif 

c 

c  print  out  global  displacements 

c 

write (6, 1000) 
write (6, 1010) 

write (6, 1020) ncount, icount 
write (6, 1030) 
do  90  ii=0,nnod-l 
c 

c  x,y  for  arches 

c 

if ( ishape. eq. 1 .and. isarch.eq. 1) then 

if (ishape .eq. 1 .and. isarch.eq. 1 .and. ii.eq. 0) write (8,2020) ncount 
xcoord(ii+l) — (rad-gd(5*ii+3) ) * 

cos (pi/2 .0+coord(ii+l) /rad-coord (nnod) / (2*rad) + 
gd(5*ii+l) /rad) 

ycoord(ii+l)=(rad-gd(5*ii+3) ) * 

sin (pi/2 .0+coord(ii+l) /rad-coord (nnod) / (2*rad) + 
gd(5*ii+l) /rad) 

write (8,2000) xcoord (ii+1) ,ycoord(ii+l) 

endif 

if (ishape .eq. 2 .and. isarch.eq. 1) then 
if (ii .eq. 0) write (8, 2020) ncount 

xcoord (nnod+ii)=(rad-gd(5*ii+3) ) * 

cos (pi/2. 0-coord(ii+l) /rad  +gd(5*ii+l) /rad) 
xcoo  rd ( nnod- i i ) — xcoo rd ( nnod+ i i ) 
ycoord(nnod+ii) = (rad-gd(5*ii+3) ) * 

.  sin (pi/2 . 0-coord(ii+l) /rad+gd(5*ii+l) /rad) 

ycoord(nnod-ii) =ycoord(nnod+ii) 

endif 

c 

c  x,y  for  straight  beams 
c 

if (ishape. eq. l.and. isarch.eq.O) then 
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if (Ishape.eq.l .and. isarch.eq.O. and. ii.eq.O) write (8, 2020) ncount 
xcoord(ii+l) -coord(nnod) “COord(ii+l) -gd(5*ii+l) 
ycoord(ii+l)  — gd(5*ii-*-3) 
write  (8/ 2000)  xcoord(il-t-l)  ,ycoord(ii-<-l) 

endif 

write (6, 1040) ii+1, (gd(5*ii+ j j) , j j“l/ 4) 

90  write(6,1050)gd(5*ii+5) 

if (ishape.eq.2 .and. isarch.eq.l) then 
do  95  ii-l,2*nnod-l 

95  write (8, 2000) xcoord(ii) ,ycoord(ii) 

endif 

if (iahape.ge.l) write (8, 2010) 
c 

c  confute  equivalent  forcea  requested 
c 

3  do  5  ii"l,ndof 
gf (ii)-O.OdO 
do  5  jj*l,9 
gstif (ii, jj)*0.0d0 
5  gn(ii, j j)-0.0d0 
c 

c  loop  over  all  elements  for  stiffness  and  forces 
c 

9  do  30  ielem>*l/nelem 
do  10  ii»l,9 

10  eld(ii)*gd(ii+{ielem-l) *5) 
c 

call  stiff  (ielem,  icount/ncount/kcal  ' 
c 

c  Assemble  global  stiffness  array,  gstif,  global  equilibrium 
c  stiffness,  gn,  in  banded  form.  Half-bandwidth-9.  Also 
c  assemble  global  force  vector,  gf. 
c 

nr= (ielem-l) *5  +  1 
do  30  jj=0,8 

gf (nr+j j)-gf (nr+j j)+elp{ j j+1) 
do  30  kk=l,9-jj 

gstif (nr+ j j,kk) -gstif (nr+ j j,kk) +stif ( j j+l,kk+ j j) 
if (linear. eq.l) goto  30 

gn (nr+j j,kk) -gn (nr+j j,kk) +eln ( j j+l,kk+j j) 

30  continue 
c 

c  calculate  the  residual  force  vector  for  nonlinear 
c  analysis.  - [gn] * (gd)+R=- [k+nl/2+n2/3] * {q}+R=gf 
c 

do  60  jj=l,nforc 
ii=iforc ( j j) 
add“0 . 

do  50  kk=l,ii-l 
if(ii-kk+l  .gt.  9) goto  50 
add=add+gn (kk, ii-kk+1) *gd(kk) 

50  continue 

res=0 . 

do  55  11=1,9 

if(ll+ii-l  .gt.  ndof)goto  55 
res=res  +  gn (ii, 11) *gd(ll+ii-l) 

55  continue 

c 
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coopute  nodal  forca 


c 

c 


vforc ( j  j ) -res+add 
60  continue 


c  print  nodal  forces  and  create  plot  file 
c 

open ( 7 , file- ’plot  * , status- ' new ' ) 
if (ncount.eq.l)write(7, *) 0.0/ 0.0 
write (6/ 1060) 
do  70  ii-l,nforc 

write (7, 1065) gd(iforc(ii) ) ,gd(iforc (ii) -2) /vforc(ii) 

70  write (6, 1070) iforc(ii) ,vforc(ii) 

1000  formate/) 

1010  format (Ix/ 'Results  of  nonlinear  analysis') 

1020  format (lx, 'increment- ',i3, '  iteration-' , i3) 

1030  format  (lx,  'Node',7x,  'V',13x,  'Psi-s',13x,  'll',13x,  'W-s') 
1040  format(lx,i4,4(2x,dl2.5) ) 

1050  format (lx, 'Midnode  v: ',3x,dl2.5) 

1060  format (lx, /, 'Equivalent  nodal  forces:') 

1065  format (lx, f 12 , 5, 2x, f 12 . 5, 2x, f 12 . 5) 

1070  format (lx, 'DOF  no: ' , i4,2x, 'Force: ' , lx,dl2 . 5) 

2000  formatdx,  fl2.5,2x,fl2.5) 

2010  formate//) 

2020  format (/, lx, i4) 
return 
end 


c 

c 

c 

subroutine  beamlc  (bmk,e]cl,pl) 
c 

in^licit  double  precision  (a-h,o-z) 
c 

common /e la s/ae,de, fe,he,e j,el,re,te,as,ds, fs 
dimension  bmlc(7,7) 
do  10  ii=l,7 
do  10  jj=l,7 
10  bmk( j j,ii)-0.0d0 
c 

bn*  (2, 2) -fe*pl**4- (2*de*pl**2) +ae 
c 

bmk (2,3) =de*pl**3- (ae*pl) 
c 

bmk (2,5) — (he*ekl*pl**3) +fe*ekl*pl 
c 

bmk  (2,7)  —  (he*ekl*pl**3)  +fe*  (-pl**3+ekl*pl)  +de*pl 
c 

bmk (3, 3) =de*pl**4+ae*pl**2 
c 

bmk (3, 5) — (2*fe*ekl*pl**2) 
c 

bmk(3,7)  — (2*fe*ekl*pl**2)-(2*de*pl**2) 
c 

bmk(5,5)=ej*ekl**2*pl**2+he*ekl**2 

c 

bmk (5, 7) -he* (ekl*pl**2+ekl**2) +e j*ekl**2*pl**2+fe*ekl 
c 
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lank (7,7) -he* {2*ekl*pl**2+ekl**2) +£e* (pl**2+2*ekl) +e j*ekl** 
.  2*pl**2+de 
c 

bmk (4,4) -9*fs*ekl**2+6*da*ekl+as 
c 

bmk (4, 6) -9*fs*ekl**2+6*ds*ekl+a8 

c 

iMBk (6, 6) -9*f S*ekl**2+6*d5*ekl+a8 
c 

do  100  ii-1,7 
do  100  jj-ii,7 
100  bink(  j  j,li)-k»Bk(ii,  j  j) 
return 
end 
c 
c 
c 

8ubroutine  beamnl  (q,l»tinl,ek,pl) 
c 

c  Note  that  kl  appears  as  'ek*  in  this  subroutine 
c 

c  The  equations  in  this  subroutine  were  generated  by  MXCSYMh. 
c 

implicit  double  precision  (a-h,o-z) 
c 

common/elas/ae,de, £e,he,ej,el,re,te,as,ds, £s 
dimension  bmnl (7, 7) ,q(7) 


bnnl  (1,  (•k*  <q<7)  +<1(5) )  -(pl**2*  (q(7)  +pl*  (2*pl*q(3)  -  (3*q( 

.  2) ) ) ) )  )-(pl**5*«)t*h«*(q(7)+q(S) )  )+pl**3*<ta*(q(7)+pl*(3*pl*q(3 
.  )  - (4*q(2) ) ) )  +pl**2*M*  (- (pl*q<3)  )+q(2) ) 

burtl  (1, 2)-pl**3*i«*  (•k*q(8)  -  (pX**2*q<6)  )+«k*q(4)  +2*pl**2*q<4)  +3*pl** 

.  3*q(l) ) - (pl**5*«k*h«* (q(6)+q<4) ) )  +pl**3*<to* (q(6) - (3*q(4) ) - < 

.  4*pl*q<l)))+pl*a«*(q<4)+pl*q<l)) 

bniil  (X,  3)  —  <2*pl**4*f«*  (ak* (q(6)  +q(4)  )-(pl**2»  (q(6)  - (pl*q(l)  >))))- 
.  (pl**4*<l**  <2*q(6)  -q(4)  -  (3*pl*q(l)  )  )  )+2*pl**8*»k*ha*  (q(6)  +q(4 
.  ))-<pl**2*««*(q(4)+pl*q<l))) 

bmnl(l,4)-pl**2*f**(3*ak*q(7)-(2*pl**2*q(7>)+2»ak*q(5)-(2*pl**2*ak*q 
.  (3))+pl*ak*q<2)+2*pl**3*q(2))+pl**2*ak*h»*(«k*q(7)-(3»pl**2*q(7))+ak* 
.  q(5)-(2*pl**2*q(5))+2*pl**4*q(3)-(pl**3*q(2)))+pl**2*<l**(2*q(7)  + 

.  pi*  <pl*q (3) - <3*q(2) ) ) ) - (pl**4*«k**2*« j*  <q(7) +q<5) ) )  +pl*aa* (- (pX 
.  *q(3))+q(2)) 

bmnX (1,  5)-pl**2*ak*'  a*  (•)t*q(6)  - (pX**2*q(6)  ) +ak*q(4)  - (2*pl**2*q(4)  ) -( 

.  pX**3*q<X)))+pX**2  '<  :t*fa*(q<6)+2*q(4)+pX*q(X))-(pX*»4*ak**2*«j* 

.  (q<6)+q(4))) 

bmnX<X,6)-pX**2*f«*(2*ak*q(7)-<pX»*2*q(7))+«k*q(5)-(2*pX**2*ak*q(3)) 

.  +2»pX**4*q(3)+pX*ak*q(2)-(pX**3*q(2)))+pX**2»«k*ha*(»k*q(7)-(2*pX**2* 
.  q(7))+«k*q(5)-<pX**2*q(5))+2*pX**4*q(3)-(pX**3*q(2)))-(pX**4*«k**2*aj 
.  * (q(7) +q(5) ) ) +pX**2*cto*  <q<7) - (pX* <2*pX»q(3)-q(2) ) ) ) 

bmnl <1, 7)-pl**2*f«* (2*«k*q(6) -  (pX**2*q(6) ) +3**k*q(4) - (2*pX**2*q(4) ) 

.  +pX*ak*q(X)-(pX**3*q(X)))+pX**2*ak*h«*(«k*q(6)-(2*pX**2*q(6))+ak*q(4) 
.  -(3*pX**2*q(4))-(pX**3*q<X)))+pX**2*<i«*(q(6)+2*q(4)+pX*q(X))-(pX 
.  **4*ak**2*«j*(q(6)+q(4))) 

bmnl  (2,2)  —  (pX*fa*  (3*pX**2*  (q(7)  +pl*  (2*pl*q(3)  -  (3*q(2) ) ) )  +2*pX**2* 

.  q(6)**2*q(7)  -(3*«k*q(7) )  -(3*ak*q(5)  )  )  )+pX*<ta*(  (2*q(6)  **2+3)  *q(7)+3* 

.  pX* (3*pX*q(3) - (4*q(2) ) ) ) -(3*pX**3*ak*ba* (q(7) +q(5) ) ) - (3*a»* (pX 
.  *q(3)-q(2))) 

bmnX  (2, 3)  —  (6*pX**2*fa*  (ak*  (q(7)+q(5) )  -(pX**2*  (q(7) - (pX*q(2)  )))))- 
.  (pX**2*<le*(2*(q(6)**2+3)*q(7)+3*pX*(pX*q(3)-(3*q(2)))))+6*pX**4*ak* 

.  ha* (q(7) +q(5) ) +3*pX*aa* (pX*q(3) -q(2) ) 

bmnX(2,4)-pX**2*fa*(3*ak*q(6)-(2*pX»*2*q(6))+4*ak*q(4)+pX*ak*q(X)+2* 

.  pX**3*q(X))+pX**2*ak*ha*(ak*q(6)-(3*pX**2*q(6))+ak*q(4)-(4*pX**2*q(4 
.  )  )-(pX**3*q(l) )  )+pX**2*<Ja*(2*q(6)-q(4)-(3*pX*q(X) ) ) -(pX**4*ak**2* 

.  aj*(q(6)+q(4)))+aa*(q(4)+pX*q(X)) 

bmnX  (2,5)  -3*ak*ha*  (ak*  (q(7)  +q(5) )  - (pX»*2*  (q(7)  -  (pX*  (2*pX*q(3)  -q(2) ) 


i. 
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.  ) ) )  ( (2*q«)  **2+3)*q(7)  -(3*pl*(2*pl*q(3)-q(2) ) ) )  -(3*pl**2*«k 

.  **2*«j*(q(7)+q(5)>) 

bwil(2.6)  — (pl**2*f«*(pl*q(C)*q<7»-(2*«k*q(C))^l**2*q(C)-(3*«k*q(4)) 

.  ■t-2*pl**2*q(4)-(pl*«k*q(l))-«pl**3*q(l)))4pl*cl«*(q(6)*q(7)4pl*(q(6)'f2* 

.  q(4)-»'pl*q(l)))4pl**2*«k*h«*(*k*q(6>-(2*pl**2*q(S))-f«k*q(4>-(3*pX**2* 

.  q<4) ) -(pl**3*q(l) ) )-(pl**4*«k**2*«J* (q(6)«q(4) ) ) 

bnnl <2, 7)-<i«*  ( (4*q(6)  **2-t-3)  *q(7)  -tpl* (q(C)  *q(S)  -(2*pl*q(6)  •*2*q(3) )  - (C 
.  *pl*q(3) )  +  <2*q(6) **2+3) *q(2) ) )+«•* (4*«k*q(€) **2*q(7) +6*«k*q(7) - (3*pl 
.  **2*q(7) ) - <pl**3*q<6) *q(S) ) +2*«k*q(6)**2*q(5>  +3*«k*q(5) - (6*pl**2*«k*q(3) )  + 
.  6*pl**4*q(3)-(2*pl**3*q(6)**2*q(2))+3*pl*«k*q(2)-(3*pl**3*q(2)))+3*«k*h« 

.  *  (•k*q(7)  -  (2*pl**2*q<7) )  +^*q(5)  -  (pl**2*q<5)  )  +2*pl**4*q(3)  -  (pl**3*q< 

.  2) ) )-(3*pl**2**k**2*«J* (q(7)+q<5) ) ) 

bmnl (3, 3)-pl**3*d«* ( (2*q(6) **2+9) *q<7) - (3*pl*  <2*pl*q(3) +q<2) ) ) ) +9* 

.  pl**3*«k*f«*<q(7)+q(5))-(3*pl**2*««*(pl*q(3)-q(2))) 
bmnl  (3,4)  —  (pl**3*«k*h«*  (mk*  (q(6)  +q(4) )  +2*pl**2*  (q<6)  - (pl*q(l) ) ) ) )  - 
.  (pl**3*d«*(3*q(6)+2*q(4)-(pl*q(l))))-(2*pl**3*«k*£m*(2*q(6)+ 

.  3*q(4)+pl*q<l)))-(2*pl**5*«k**2*«j*(q(6)+q(4)))+pl*a«*(-q(4)- 
.  (pl*q(l))) 

lM«nl(3,5)  — (pl*«k*h«*(6*pl**2*(q(7)-(pl*q(2)))+2*pl**2*q(6)**2*q(7)+3 
.  *«k*q(7)+3*«k*q(5)))-(pl*«k*f«*((2*q(6)**2+3)*q(7)-(3*pl*(3*pl*q(3)-( 

.  2*q(2) ) ) ) ) )-(6*pl**3*«k**2*«J*(q(7)+q(5) ) ) 

bmnl  (3,  6)  —  <pl**2*d«*  <2*q(6)  *q(7)  +pl*  (q(6)  +3*q(4)  +2*pl*q(l) ) ) )  -(pi 
.  **3*«k*h«*(«k*q(6)+4*pl**2*q(6)+«k*q(4)+2*pl**2*q(4)-(2*pl**3*q(l)) 

.  ))-(2*pl**3*f«*(«k*q(6)+pl**2*q(6)+2*«k*q(4)+pl*mk*q(l)-(pl**3*q(l)) 

.  ))-(2*pl**5*«k**2*«J*(q(6)+q(4))) 

)smnl(3,7)  — (pl*d**((4*q(6)**2+3)*q(7)+pl*(2*q(6)*q(6)-(2*pl*q(6)**2*q( 

.  3) ) - (9*pl*q(3) ) +2* (q(6) **2+3) *q(2) ) ) ) -(pl*fm* (4*«k*q(6) **2*q(7) +6*mk* 

.  q(7)+6*pl**2*q(7)+2*ek*q(6)**2*q(5)+3*«k*q(5)-(9*pl**2*mk*q(3) )+6*pl*«k*q( 
.  2)-(6*pl**3*q(2))))-(pl**k*h«*(3*mk*q(7)+12*pl**2*q(7)+2*pl**2*q(G)** 

.  2*q(5) +3*«k*q(5) +6*pl**2*q(5) - (6*pl**3*q(2) ) ) ) - (6*pl**3*«k**2*«j* ( 

.  q(7)+q(5))) 

bmnl ( 4 , 4 ) -pl»*k*h«* ( 2 *«k*q ( 7 ) +4 *pl* *2*q ( 7 ) +2 *«k*q  ( 5 ) - (pl**2 *»k*q  ( 3 ) )  + 

.  pl*«k*q(2) - (4*pl**3*q(2) ) ) +pl**3*«k**2*aj* (7*q(7) +4*q(5) - (pi* (2*pl*q 
.  (3) +q(2) ) ) ) +pl*«k*f«* (5*q(7) +3*q(5) - (2*pl* (3*pl*q(3) - (2*q(2) ) ) ) ) + 

.  pl*d«* (3*q(7) -(pi* (2*pl*q(3)+q(2) ) ) )+3*pl**3*«k**3*«l* (q(7) +q 
.  (5))+a«*(-(pl*q(3))+q(2)) 

bmnl(4,5)-pl*ak*)ia*(ak*q(6)+2*pl**2*q(6)+2*ak*q(4)+pl*ak*q(l)-(2*pl**3 
.  *q(l) ) ) +pl**3*ak**2*aj* (5*q(6) +4*q(4) -(pl*q(l) ) ) +pl*ak*fa* (q(6 
.  ) +3*q(4) +2*pl*q(l) ) +3*pl**3*ak**3*al* (q(6) +q(4) ) 
bmnl (4, 6)-pl*fa* (2*ak*q(7) +2*pl**2*q(7) +ak*q(5) - (4*pl**2*ak*q(3) ) +3* 

.  pl*ak*q(2)-(2*pl**3*q(2)))+pl*ak*ha*(ak*q(7)+7*pl**2*q(7)+ak*q(5)+2*pl 
.  **2*q(5)-(pl**2*ak*q(3))-(2*pl**4*q(3))+pl*ak*q(2)-(3*pl**3*q(2)))+pl**3 
.  *ak**2*aj*(8*q(7)+5*q(5)-(pl*(2*pl*q(3)+q(2))))+3*pl**3*ak**3*al 
.  *(q(7)+q(5))+pl*da*(q(7)-(pl*(3*pl*q(3)-(2*q(2))))) 
bmnl(4,7)-pl*fo*(2*ak»q(6)+2*pl**2*q(6)+5*ak*q(4)+3*pl*ak*q(l)-(2*pl 
.  **3*q(l) ) )+pl*ak*ho*(ek*q(6)+7*pl**2*q(6)+2*ak*q(4)+4*pl**2*q(4)+pl* 

.  ak*q(l)-(3*pl**3*q(l) ))+pl**3*ak**2**j*(8*q(6)+7*q(4)-(pl*q(l) ))+pl 
.  *da*(q(6)+3*q(4)+2*pl*q(l) )+3*pl**3*ak*»3*el*(q(6)+q(4) ) 
bmnl(5,5)-3*pl*ak**2*aj*((2*q(6)**2+3)*q(7)-(pl*(2*pl*q(3)+q(2))))+9 
.  *pl*ak**3*al*(q(7)+q(5) )-(3*ak**2*ha*(pl*q(3)-q(2)) ) 

bmnl(5,6)-pl*ak*ha* (pl*q(6) *q(7) +3*pl**2*q(6) +ak*q(4) +2*pl**2»q(4) +pl*ak 
.  *q(l)-(pl**3*q(l) ))+ak*fa*(q(6)*q(7)+pl*(q(4)+pl*q(l)) )+pl**3*ak**2*aj 
.  * ( 6*q ( 6 ) +5*q (4 ) - (pl*q ( 1 ) ) ) +3*pl**3*ak**3*«l* (q ( 6) +q ( 4 ) ) 
bmnl (5, 7)-pl*ak**2»ej* (2* (4*q(fi) **2+9) *q(7) +3»(2*q(6) »*2+3) *q(5) -(3* 

.  pi* (2*pl*q(3) +q(2) ) ) ) +ak*ho* (8*pl*q<6) **2*q(7) +9*pl*q(7) +pl**2*q(6) *q(6 
.  ) - (2*pl**3*q(6) **2*q(3) ) - (3*pl*ak*q(3) ) -(6*pl**3*q(3) ) +3*ak*q(2) - (3*pl**2 
.  *q(2)))+9*pl*ak**3*al*(q(7)+q(5))+ak*fe*(q(6)*q(6)-(2*pl*q(6)**2* 

.  q(3) ) - (3*pl»q(3) )+(2*q(6) **2+3) *q(2) ) 

bmnl(6,6)-pl**2*ak*ho*(9*pl*q(7)+3*pl*q(5)-(pl*ak*q(3))-(4*pl**3*q(3) 

.  ) +ak*q(2) - (2*pl**2*q(2) ) ) +pl**2*fa* (3*pl*q(7) -(2*pl*ak*q(3) ) - (2*pl** 

.  3*q(3))+2*ak*q(2)-(pl**2*q(2)))+pl**3*ak**2*aj*(9*q(7)+6*q(5)-(pl* 

.  (2*pl*q(3) +q(2) ) ) ) +3*pl**3*ek**3*el* (q(7) +q(5) ) +pl**2*da* (- ( 

.  pl*q(3))+q(2)) 

bmnl(6,7)-fa*(2»ak»q(6)*q(7)+2*pl**2*q(6)*q(7)+3*pl**3*q(6)+ak*q(6)*q(5) 

.  +2*pl*ak*q(4)+2*pl**3*q(4)-(pl**3*q(6)*q(2))+2*pl**2*ak*q(l)-(pl**4*q(l) )) 

.  +pl*ak*lia*(2*pl*q(6)*q(7)+9*pl**2*q(6)+pl*q(6)*q(5)+ak*q(4)+7*pl**2*q(4) 

.  +pl*ak*q(l)-(2*pl**3*q(l)))+da*(2*q(6)»q(7)+pl*q(4)-(2*pl**2*q(6)*q(3 
.  ) ) +pl*q(6) *q(2) +pl**2*q(l) ) +pl**3*ak**2»e j* (9*q(6) +8*q(4) - (pl*q(l) ) ) 

.  +3*pl**3*ak**3*al*(q(6)+q(4) ) 

bmnl (7, 7) -pl*ok**2*e j* (3* (2*q(6) **2+9) *q(7) +2* (4*q(6) **2+9) *q(5) - (3* 

.  pi* (2*pl*q(3)+q(2) ) ) )+ok*ha*(12*pl*q(6) **2*q(7)+27*pl*q(7)+2*pl**2*q(6) 

.  *q(6)+8*pl*q(6)**2*q(5)+9*pl*q(5)-(3*pl*«k*q(3))-(12*pl**3*q(3))+3*ak*q(2 
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.  **2*q<«)*<I«)-(4*Pl*«k*q(«)****q(3»»-««*Pl*«k*q(3>>-<«*pl**3*q(3»»+4*«k*q(«) 
.  **2*q<2) ^C*«k*q(2) - (3*pl**2*q(2) »  » ♦»*pX*«k**3*«l* (q(7)4q<S) ) ^ 

.  * (2*q(«) *q(«) - (4*pl*q(C) **2*q(3) ) - (3«pl*q(3) ) ♦ (4*q(() •*2+3) *q<2) ) 

do  100  11-1,7 
do  100  jj-11,7 

100  faMll(jj,ll)-4Ml(ll,  jj) 
rotucn 
•nd 


•ubroutlno  hoown2  (q,ho«>2,ok,pl) 
c 

c  Koto  that  kl  appaars  aa  'ak*  In  tkla  aobroutlna 

c 

c  Tha  aquatlona  In  tkla  aubroatlna  vara  qanaratad  bp  MkCStllh. 

c 

lapllclt  doubla  praelalon  (a-h,o-s) 
c 

canaK>n/alaa/aa,  da,  f  a,  ha,  a  j ,  al,  ra,  ta,  aa,  da,  f a 
rlliaanalon  baai2  <7, 7)  ,q(7) 
c 

TO-4 . 0/3 . 0*pl**6*ak**2*al*  ( (q<7)  ^(5) )  **2+4*pl**2»  (q(C)  -^1(4) )  **2) 

.  -<1.0/6. 0*pl**2*ha* (12*pl**2*ak*q(6) **2*q<7) **2- (ak**2*q(7) **2) +12* 

.  pl**2*ak*q<7) **2-<12*pl**4*q<7) **2)+12*pl**2*ak*q(6) **2*q(5) *q<7)-(2*ak** 
.  2*q<5)*q(7))+12*pl**2*ak*q(5)*q(7)-(12*pl**4*ak*q(3)*q(7))+24*pl**5*q< 

.  2)*q(7)-(7*pl**2*ak**2*q(6)**2)+44*pl**4*ak*q<6)**2-<36*pl**6*q(6)**2) 

.  -(14*pl**2*ak**2*q(4)*q(6))+88*pl**4*ak*q<4)*q(S)+72*pl**7*q(l)*q(6)-( 

.  ak**2*q<5) **2) - (12*pl**4*ak*q(3J  *q<5) ) -<7*pl**2*ak**2*q(4) **2) ♦44*pl**4 
.  *ak*q<4) **2- <12*pl**6*q(2) **2) -<36*pl**8*q(l) **2) ) ) 

T0-T0+pl**2»fa*<2*ak*q(6»**2*q(7)**2-(18*pl**2*q(6J**2*q(7)**2)+2*ak*q 
.  (7)**2-(9*pl**2*q<7)**2»-(10*pl**3*q<6)*q(6)*q(7))+2*ak*q(6)**2*q(5)*q(7 
.  >+2*ak*q(5)*q(7)-(8*pl**4*q(6)**2*q(3)*q<7))-<4*pl**2*ak*q(3)*q(7))+28* 

.  pl**4*q(3)*q<7)-(10*pl**3*q<6)**2*q(2)*q(7))+2*pl*ak*q(2)*q(7)-(10*pl**3 
.  *q(2)*q(7))+10*pl**2*ak*q(6»**2-<19*pl**4*q(6)**2)+26*pl**2*ak*q(4)*q( 

.  6) - (68*pl**4*q<4) *q(6) ) +6*pl**3*ak*q(l» *q(6) - (30*pl**5*q(l) *q<6> ) -(4* 

.  pl**2*ak*q(3)*q(5))+2*pl*ak*q<2)*q<5)+16*pl**2*ak*q(4)**2+32*pl**4*q(4) 

.  •*2+6*pl**3*ak*q<l)*q(4)+132*pl**5*q<l)*q<4)+8*pl**6*q(3)**2-(44*pl**5 
.  *q<2> *q(3) ) +27*pl**4*q(2) **2+81»pl**6*q(l) **2) /6.0 

ba«»2(l,l)-T0+pl**2*da*<2*q<6)**2*q(7)**2+q(7)**2+2*pl*q(6)*q(6>*q<7 
.  )-(4*pl**2*q(3)*q(7)»+2*pl*q(6)**2*q(2)*q(7)+2*pl*q(2)*q(7)+7*pl**2*q(6 
.  )**2+20*pl**2*q(4)*q(6)+6*pl**3*q(l)*q<6)-(5*pl**2*q(4)**2)-(30*pl**3 
.  *q(l)*q(4))-<3*pl**4*q<3)**2)+10*pl**3*q<2)*q(3)-(6*pl**2*q(2)**2)-( 

.  18*pl**4*q<l)**2))/6.0-<1.0/3.0*pl**4*ak*aj*<3*ak*q(7)**2-<8*pl**2 
.  *q<7) **2) - (8*pl**2*q(6) **2*q(5) *q(7»  »+6*ak*q(5) *q(7) - (8*pl**2*q(5)  *q(7 
.  ))+8*pl**3*q<2)*q(7>+8*pl**2*ak*q<6)**2-(24*pl**4*q<6)**2)+16*pl**2*ak* 

.  q(4) *q<6) - (24*pl**4*q<4) *q(6) ) +24*pl**5*q(l) *q(6>  +3*ak*q(5>  **2+8*pl** 

.  3*q <2 ) •q ( 5) +8*pl**2*ak*q (4 ) **2+24*pl**5*q<l) *q(4 ) ) )  +pl**2*aa*  < 3*q 
.  <4)**2+6*pl*q(l)*q(4)+pl**2*q(3)**2-(2*pl*q(2)*q(3))+q(2)**2+3*pl**2* 

.  q(l)**2)/2.0 

TO—  (1.0/3. 0*pl**2*ha*  (2*pl**2*ak*q(6)  **2*q(6)  *q<7)  -  (3*ak**2*q(6)  *q( 

.  7))+16*pl**2*ak*q(S)*q(7)-(12*pl**4*q(6)»q(7))+2*pl**2*ak*q(6)**2*q(4)*q 
.  <7)-(3*ak**2*q(4)*q(7))+16*pl**2*ak*q(4)*q(7)+12*pl**5*q(l)*q(7)-(3*ak 
.  **2*q(5) *q(6) ) +8*pl**2*ak*q(5) *q(6) -(8*pl**4*ak*q(3) *q(S) ) +12*pl**5*q< 

.  2)*q(6)-(3*ak**2*q<4>*q(5))+8*pl**2*ak*q(4)*q(5)-(8*pl**4*ak*q(3)*q(4) 

.  )-(12*pl**6*q(l)*q<2)))) 

T0-T0+pl**2*fa*(2*ak»q(6)**2*q(6)*q(7)-(pl**2*q(6)**2*q(6>*q(7))+4*ak* 

.  q<6)*q(7)-<5*pl**2*q(6)*q<7))+2*ak*q(6»**2*q(4)*q(7)-(6*pl**2*q(6)**2*q( 

.  4)*q(7))+5*ak*q(4)*q(7)-(10*pl**2*q(4)*q(7)>-(5*pl**3*q(6)**2*q(l)*q(7 
.  n+pl*ak*q(l)*q(7)-(5*pl**3*q<l>*q<7))+2*ak*q(5)*q(6)-(3*pl**2*ak*q(3)» 

.  q<6))+10*pl**4*q(3)*q(6)+pl*ak*q(2)*q(6)-(5*pl**3*q(2)*q(6))+3*ak*q(4) 

.  *q(5)+pl*ak*q(l)*q(5)-(3*pl**2*ak*q(3)*q(4))-(12*pl**4*q(3)*q(4)>+pl*ak* 

.  q(2) *q(4) +22*pl**3*q(2) *q(4) -<22*pl**5*q(l) *q(3) ) +27*pl**4*q(l>  *q(2) 

.  )/3.0+pl**2*da*<3*q(6)**2*q(6)*q(7)+3*q(6)*q(7)+4*q(6)**2*q<4)*q( 

.  7)+4*q<4)*q(7>+pl*q(6)**2*q(l)*q(7)+pl*q<l»*q(7)-(4*pl**2*q(3)*q(6))+pl 
.  *q(2)*q<6)+pl**2*q(3)*q(4)-(5*pl*q(2)*q(4n+5*pl**3*q(l)*q(3)-(6*pl** 

.  2*q(l)*q<2)))/3.0 

biiin2  (1, 2)-T0-  (1 . 0/3. 0*pl**4*ak*a  j*  (5*ak*q(6)  *q(7)  -  (16*pl**2*q(6)  *q 
.  (7>>+5*ak*q<4)*q(7)-(8*pl**2*q<4)*q(7))+8*pl**3*q(l)*q<7)+5*ak*q(5)*q 
.  (6)-(8*pl**2*q(5)*q(6)>+8*pl**3*q(2J*q(6)+5*ak*q(4)*q(5)+8*pl**3*q(l) 


C-31 


*q(5) ‘qCO ) ) ♦4*pl**€*«k**2*«l* (q(«) +q(4) ) • (q(7) +q(5 
) )  -  (pl*q(3)  -q(2) )  *  <q(4)  ^l*q(l) ) ) 

TO— (1.0/3. 0*pl**3*f«*<2*«k*q<«)**2*q<«>*q(7|-<4*pl**2*q(«)**2*q(6)*q 
(7))+4*«k*q(«)*q(7>*2*pl**2*q(«)*q(7)+2*«k*q<«)**2*q(4)*q(7)+6*«k*q(4)* 
q(7)-<12*pl**2*q(4)*q<7))+4*pl**3*q(«)**2*q(l)*q(7)+2*pl*«k*q(l)*q(7)-( 
14*pl**3*q(l)*q(7))+2*«k*q(5)*q(«)-(5»pl**2*«k*q(3)*q(6))+8*pl**4*q(3) 
*q(«)+3*pl*«k*q(2)*q(6)-(10*pX**3*q(2)*q(6))+4*«k*q(4)*q(5)+2*pl*«k*q<l 
)*q(3)-(5*pl»*2*«k*q(3)*q(4))+3*pl*«k*q(2)*q(4)+12*pl**3*q(2)*q(4)-(8* 
pl**S*q(l)*q(3))+22*pl*»4*q(l)*q(2) J)+pl»*3*«k*h«*(4»pl**2*q(«»**2*q 

(6)  *q(7)  -  (3*«k*q<«)  *q(7) )  4'2*pl**2*q(6)  *q(7)+4*pl**2*q(6)  **2*q(4)*q(7)- 
(3*«k»q(4)*q(7))+8*pl**2*q(4)*q(7)+«*pl**3»q(l>*q(7)-(3*«k*q(5)*q(6)) 
+2*pl**2*q(5) *q(«) -(8*pl**4»q(3) *q(6) »+8*pl**3*q(2) *q(«> - (3**k»q(4) *q 
(5>)+8*pl**2*q(4)*q(5)+«*pl**3*q<l>*q(5>-<«*Pl**<*<l(3)*<I«>>+**Pl**3* 

q(2)*q(4))/3.0 

bmi2(l,3)-T0-(1.0/3.0*pl»*3*d«*(3*q«»**2*q(«)*q(7)+3*q(6)*q(7)  + 
3*q<6)**2*q(4)*q(7)+5*q(4)*q<7)+2»pl*q(l)»q<7>-(7*pl»*2*q(3)*q(«))+4* 
pl*q(2)*q(6)-(4*pl**2*q<3)*q(4))-(pl*q(2)*q(4))+3»pl»*3*q(l)*q<3)-(5* 
pl**2*q(l)*q(2))))-(2.0/3.0*pl**5*«k»*2*«j*(q(«)+q<4))*(q(7)+q(5 
) ) )  +pl**2*M*  <pl*q(3)  -q(2) )  *  (q(4>+pl*q(l)  ) 

TO—  <4.0/3 . 0»pl**5**k**3*r**  ( <q(7)+q(5J )  **2+3*pl**2*  (q(6)  +q(4) )  ** 
2))+pl*»3*«k*«j*(3*«k*q(«)**2*q(7)»*2+7**k*q(7)**2-(4*pl**2*q<7)*»2) 
+7*«k*q(S)**2*q(5)*q(7)+7**k»q(5)*q<7)-(2*pl*»2*«k*q(3)*q(7))-(5*pl*«k»q( 

2) *q(7))+8*pl**3*q<2)*q(7)+22*pl**2*«k*q«)**2-(12»pl**4*q(6)»*2)+28» 
pl**2*«k*q(4)*q(6)-(16*pl»*3*«k*q(l)*q(6))+24*pl*»5»q(l)*q(6)-(2*pl»*2* 
•k*q(3)*q<5))-<5»pl*«k»q(2)*q(5))+«*pl**2**k*q(4)**2-(16*pl*»3»«k*q(l)«q 
(4))-(4*pl**4*q(2)»*2)-(12*pl**fi*q{l)»*2))/3.0 

T0-T0+pl*f«* (2*ak*q(6) **2»q{7) **2-{12*pl**2*q(6) **2*q(7) **2)+2*«k»q(7) 

**2- (2*pl**2»q(7) **2) +4*pl*«k*q(6) *q(6) *q(7) -(12*pX**3*q(6) *q(6) *q(7) ) +2* 

•k*q(6)**2*q<5)*q<7)+2*«k*q(5)*q<7)-(4*pl**2**k*q(6)**2»q(3)*q(7)>-(12*pl 

**2*«k*q<3)*q(7))+24*pl**4*q<3)*q(7)+4»pX**k»q(6)**2*q(2)*q(7)-(12*pl*»3 

*q(6)**2*q(2)»q(7))+X0*pl*«k*q(2)*q(7)-(2O*pl»»3*q(2)»q(7))+10*pl*»2*«k» 

q(6)**2+2»pl**4*q(6)**2+46*pX**2*«k*q(4)*q«)-(«4*pX**4*q(4)*q(S>)+26 

*pl**3*«k*q(l)*q(6)-(68*pX**5*q(X)*q<6))-(8*pX**2**k*q(3>»q<5))+6»pl*«k* 

q(2)*q<5)+39*pX**2*«k*q(4)**2+32*pX**3**k*q(X)»q(4)+64*pX**5»q(X>*q(4) 

+5*pX**4*«k*q(3)**2-(6*pX**3**k*q<2>*q(3))-(24*pX**5*q(2)*q(3>)+pl**2»«k 

•q(2)**2+22*pX**4*q<2)**2+3*pX*»4*«k*q(X)**2+66»pl**6»q(X)*»2)/6.0 

T0-T0-(X.0/6.0*pX**k*h«*<4*pX*»2*q<«)**2*q(7>**2-(«k*q(7)**2)-(8*pX** 
2*q(7)**2)+4*pX**3*q(6)*q(6>*q<7)-<2*»k*q(5>*q(7))-(8*pX**4*q(6>**2*q(3) 
*q(7> ) +6*pX**2**k*q(3»  *q(7) - (X6*pX**4*q(3) *q(7) ) +4*pl**3»q<6) **2*q(2) *q 

(7) -(6*pX*«k*q<2)*q(7))+32*pX»*3*q<2)*q(7)-(7*pX**2»«k*q(6)*»2)-(16*pX 
**4*q(6)**2)-(28*pX**2*«k*q(4)*q(6))+56*pX**4*q(4)*q(6)-(14*pX**3»»k*q 
<X)*q<6) >+88*pl**5*q(X)»q(6)-(«k*q<5)**2)+6*pX**2»«k*q(3)*q(5)-(16*pX 
**4*q(3) *q(5) ) - <6*pX**k»q(2) *q(5) ) +X6*pX**3*q(2) »q(5) -(2X*pl**2*»k»q(4 
)**2)+72*pl»*4*q<4)**2-(14*pl**3*«k*q(X)*q(4))+88*pl»*5*q(l)*q(4>+8*pl 
*»6*q(3) **2-(X6*pX**5*q(2) *q(3) ) » ) 

biiin2  (1,  4)-T0+pl*d«*  (2*q<S)  **2*q(7)  **2+q(7)  **2+8*pl*q(6)  ‘qCS)  *q(7)  -( 
6*pl**2*q(6)**2*q(3)*q(7>)-(10*pl**2*q(3)*q(7))+8»pX*q(6)**2»q(2)*q(7)+8 
*pl*q(2)*q(7)+7*pl**2*q<6)**2+34*pl**2»q(4)*q(6)+20*pl**3*q(l)*q(6)+ 
12*pX**2*q(4) **2-(10*pl**3»q(l) *q(4) )+4*pX**4*q(3) **2+2*pl*»3*q(2) »q( 

3)  - (5*pl**2*q(2) »*2) - (X5*pl**4*q(l) **2) ) /€ . 0+pl»*3**k**2*»l* (3*«k» 
q(7)  **2-  (12*pX**2*q(7)  **2)  -  (12*pX**2*q(«)  **2*q(5>  *q(7)  >  4^S*«k*q(5)  *q(7) 
-(12*pl»*2*q(5)*q(7))+12*pX*»3*q(2)*q(7)+9*pX*»2*«k*q(6)**2-(32*pl»»4* 
q(6) **2) +18*pl**2**k*q(4) *q<6) - <32*pX*»4*q(4) *q(6> ) +32*pX**5*q(l) *q(6 
)+3*«k*q(5)*»2+12*pl**3*q(2)*q(5)+9*pX**2*«k»q(4)**2+32*pl**5*q(l)*q(4 
) ) /3 . 0+pl*««* (3*q(4>  **2+6»pX*q(l) •q<4)+pl**2*q(3) *»2- (2*pl*q(2) *q 
(3))+q(2)**2+3*pl**2*q(l)**2)/2.0 

I0-pl**3*ek*ej*(7*«k*q(6)**2*q(6)*q(7)-(8*pl**2*q(6)**2*q(6)*q(7))+X3* 
•k*q(6)*q<7)-(8*pl**2*q(6)*q(7) )+7*«k»q(6)**2*q(4)*q(7)+7*«k»q(4)*q(7)+ 
8*pl**3*q(6)**2*q(X)*q(7)-<6*pl*«k*q(X>*q(7))+8*pX»*3*q(l)*q(7)+6*«k*q(5 
)*q(6)-(2*pl**2*ek*q(3)*q(6))-(5*pl*«k*q(2)*q(6))+8*pl»*3»q(2)*q(6)-(6 
*pl*ok*q(l)*q(5))-(2»pl**2*«k*q(3)*q<4))-(5*pX**k*q(2)*q(4) )-(8*pl**4*q( 
l)*q(2)) )/3.0- <2.0/3. 0*pl**3*«k**2**l*(6*pX**2*q(6)**2*q(6)*q(7)-( 
3*«k*q(6)*q(7) >+10*pl**2*q(6)*q(7)+6*pl**2*q(6)**2»q(4)*q(7)-(3*«k*q(4) 
*q(7))+6*pl**2*q(4)*q(7)-(4*pl**3*q(l)*q(7))-(3*«k»q(5)*q(6))+4*pl**2 
*q(5)*q(6)-(6*pl»*3*q(2)*q(6))-<3*«k*q(4)*q<5))-<4*pl**3*q(l)*q(5))- 
(6*pl**3*q(2)*q(4)))) 

binn2  (1,  5)-T0+pl*ek*he*  (6*pl**2*q(6)**2*q(6)*q(7)  +6*pl*»2*q(6)  »q(7)  +«k 
*q(4)*q(7)-(6*pl**3*q(6)**2*q(l)*q<7))+pl»»k*q(l)*q(7)-(6*pl»*3*q(l)»q< 
7))-(3*pl»«2*«k*q(3)*q(6))+2*pX**4*q(3)»q(6»+3*pX»ek*q(2)*q(6»-(8*pl**3 
*q(2)*q(6))+ok*q<4)*q<5)+pl*«k*q(l)*q(5)-(3*pl*»2*«k*q(3)*q(4))+8*pl**4 
*q(3) •q(4) +3*pl**k*q(2) *q(4) - (8*pl**3*q(2) *q(4) ) +6*pX**5*q(l) *q(3) ) / 
3.0+pl**k*f®*(q(6)**2*q(4)»q(7)+q(4)*q(7)+pl»q<6)*»2»q(l)*q(7)+pl*q(l 
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)  *q<7)  - (2*pl**2*q<3)  *q«6) )  +2*pl*q<2) *<*«)  -<4*pl**2*q(3)  *q(4) )  +3*pl*q( 
2»*q(4)-(2*pl**3*q{l)*q(3n+pl**2»q(ll*q<2n/3.0-(«.0/3.0*pl**5*»k**3 
*t«* (q(«)+q(4)>*(q(7)+q(5))) 

TO— (4.0/3. 0*pl**5*«k**3*r«»(<q<7»+q(5)»**2+3*pl**2*(q«)+q(4))** 

2)) 

T0-T0+pl**2*h«*(4*pl*«k*q(6)**2*q(7)**2+10*pl*«k*q(7)**2-(6*pl**3*q(7) 

**2) -(4*pl**2*«k*q(6) *q(6) *q(7) )+6*pX*«k*q(«) **2*q(5) *q(7)+6*pl‘«k*q(5) •q(7 
)-(2*pl**2*«k*q(«)*q(4)*q(7))+4*pl**3*«k»q(e)*»2*q(3)*q(7)-(3*pl*»k**2*q<3) 
*q(7> )+2*pl**3*«k*q(3) *q(7) -(2*pl**2*«k*q(«>  **2*q(2) *q(7) )+3*»k**2*q(2) » 
q(7)-(l«*pl**2*«k*q(2)*q(7))+12*pX**4*q(2)*q<'»)+30*pl**3*«k*q(«)**2-( 
18*pl**5*q(6)**2)+7*pl*«k**2*q(4»*q«)-»-16*pl»*3*«k*q(4)*q(6)+7*pl**2*«k 
**2*q(l) *q(6) -(44*pl**4*«k*q(l) *q(«) )+3«*pl**6*q(l) »q(6) - (3*pl*«k**2*q 
(3) *q(5) ) +2*pl**3*«k*q(3) *q(5) ♦3*«k**2*q(2) *q(5) - (8*pl**2*«k*q(2) *q(5) 

) +7*pl*«k**2*q(4) **2- (14*pl**3*«k*q(4) **2) +7*pl**2*«k**2*q(l) *q<4) - (44* 

pl**4*«k*q(l)*q(4))-(4*pl**5*«k*q(3>**2)+8*pl**4*«k*q(2)*q(3)-(6*pl**5*q 

(2)**2)-(18*pl**7*q(l)**2))/3.0 

T0-T0+pl**3*«k*«J*  (3*ak*q«)  **2*q(7)  **2+10*«k*q(7)  **2-(12*pl**2*q(7) 
**2)+7*«k*q(6)**2*q(5>*q(7)-(8*pl**2»q(6)**2*q(5)*q(7))+13*«k*q(5)*q(7)- 
(8*pl**2*q(5)*q(7))-(2*pl**2*«k*q(3)*q(7)>-(5*pl*»k»q(2>*q(7>)+16*pl**3 
*q(2) *q(7) +30*pl**2*«k*q(6) **2- (3fi*pl**4*q(6) **2) +44*pl**2*«k*q(4) *q(6 
) - (24*pl**4*q(4) *q(«) ) - (16*pl**3*«k*q(l) *q(6) ) +48*pl**5*q(l) *q(fi) +3*«k 
*q(5) **2- (2*pl*»2*«k*q(3) *q(5) ) -(5*pl**k*q(2) *q(5) ) +8*pl**3*q(2) *q(5) + 
14*pl**2*«k*q(4)**2-(l«*pl**3*«k*q(l)*q(4))+24*pl**5*q(l)*q(4)-(4*pl**4 
*q(2)**2)-(12*pl**fi*q(l)**2))/3.0 

T0-T0+pl**2*f«*(fi*pl*q(6)**2*q(7>**2+7*pl*q(7)**2+8*«k*q(6)*q(6)»q(7)- 
(4*pl**2*q(6)*q(6)*q(7))+4*«k*q(S)*q(4)*q(7)-(12*pl**2*q(6)*q(4)*q(7))-(4* 
pl*«k*q(fi)**2*q(3)*q(7))+8*pl**3*q(6>**2*q(3)*q(7)-(8*pl*»k*q(3)*q(7))-(4* 
pl**3*q(3)*q(7))+4*«k*q(6)**2*q(2)*q(7)-(2*pl**2*q(6)**2*q(2)*q(7))+8*«k* 
q(2)*q(7)-(10*pl**2*q(2)*q(7))-(10*pl**3*q(€)*q(l)*q(7))+21*pl**3*q(6) 
**2+20*pl*«k*q(4)*q(6)+4*pl**3*q(4)*q(6>+20*pl**2*«k*q(l)*q(6)-(38*pl** 
4*q(l)*q(6))-(4*pl*«k*q(3)*q(5))+4»«k*q(2)*q(5)+23*pl*»k»q(4)**2-(32*pl 
**3*q(4)**2)+26*pl**2*«k*q(l)*q(4)-(68*pl**4*q(l)*q(4))+5*pl**3**k*q(3 
) **2- (8*pl»*5*q(3) *»2) - (6*pl**2*«k*q(2) *q(3) ) +20*pl**4*q(2>  *q(3>  +pl*«k* 
q(2)**2-(5*pl**3*q(2)**2)+3*pl**3*«k*q(l)**2-(15*pl**5*q(l)**2)>/6.0 

bmn2 (1, 6)-T0+pl**3*«k**2*«l* (3*«k*q(7) **2-(16*pl**2*q(7) **2> - (12*pl 
**2*q(6)**2*q(5)*q(7))+6*«k*q(5)*q(7)-(20*pl**2*q(5)*q(7))+l2*pl**3*q( 
2)*q(7)+9*pl**2*«k*q(6)**2-(48*pl**4*q(«>**2)+18*pl**2*«k*q(4)*q(6)-( 
64*pl**4*q(4)*q(6))+32*pl»*5*q(l)»q(6)+3*«k»q(5>**2-(4*pl**2*q(5)**2) 
+12*pl**3*q(2)*q(5)+9*pl**2*«k*q(4)**2-(16»pl**4*q(4)*»2)+32*pl*»5*q(l 
) *q(4) ) /3. 0+pl**2*d*» (12*q(6) »q(6) *q(7)+8*q(6) *q(4>  *q(7) - (6*pl*q(6) 

**2*q(3) *q(7) ) -(6*pl*q(3) *q(7) )+6*q(6) **2*q(2) *q(7) +6*q(2) *q(7) +2*pl* 
q(6)*q(l)*q(7)+14*pX*q(4)*q(6)+14*pl**2»q(l)*q(6)+17*pl*q(4)**2+20*pl** 
2*q(l)*q(4)+7*pl*»3*q(3)**2-(8*pl**2*q(2)*q(3))+pl*q(2>**2+3*pl*»3*q( 
l)**2)/6.0 

TO-pl*h«* (8*pX**2*«k*q(6) **2*q(6) *q(7)+20*pX*»2**k*q(6) *q(7) -(X2*pX**4 
*q(6)  *<I(7)  )  -(4*pX**2*«k*q(6)  **2»q(4)  *q(7)  )+«k**2*q(4)  *q(7)+8*pX**2*»k*q( 

4)  *q(7) -(X2*pX**3*«k*q(6) **2*q(X) *q(7) >+pX**k*»2*q(l) *q(7) -(X2*pX**3*«k»q 
(l)*q(7) )+X2*pX**5*q(X)*q(7)-(2*pl**3*«k*q(6)*q(6)**2)+6»pX**2**k*q(6)**2* 
q(5) *q(6) +6*pX**2*«k*q(5) *q(6) -(2*pX**3*»k*q(6>*q(4) *q(6) ) +4*pX**4*«k*q(6) 
**2*q(3)*q(6)-(3*pX**2*«k**2*q(3)*q(6))+2*pX**4**k*q(3)*q(6)-(2*pX**3* 
•k*q(6)**2*q(2)*q(6) )+3*pX»«k**2*q(2)*q(6)-(16*pX**3*»k*q(2)*q(S) )+12*pX 
**5*q(2)*q(6)+«k**2*q(4)*q(5)-(fi*pX**3*«k*q(6)**2*q(X)*q(5))+pX**k**2*q( 
l)*q(5)-(6*pX**3*«k*q(X)»q(5))+4*pX**4*«k*q(6)**2*q(3)*q(4)-(3»pl**2*«k** 
2»q(3)*q(4))+8*pX**4*«k*q(3)*q(4>-(2*pX**3*«k*q(6)**2*q(2)*q(4))+3*pl*«k 
**2*q(2)*q(4)-(X6*pl**3**k*q(2)*q(4))+6*pX**5**k*q(X)*q(3)-(X2*pl**6*q 
(l)*q(2)))/3.0 

Tl-6*pl**2*q(6)**2*q(6)*q(7)+7*pl**2*q(6)*q(7>+2*«k*q(6)**2*q(4)*q(7)-(12 
*pl**2*q(6)**2*q(4)*q(7))+2*«k*q(4)*q(7)-(2»pX**2*q(4)*q(7) )+2*pX*«k*q(S) 
*»2*q(l)*q(7)-(X8*pl**3*q(6)**2*q(X)*q(7))+2*pX**k*q(X)*q(7»-(9*pX**3*q 
(X) *q(7) ) +2*pX*«k*q(6) *q(6) **2-(pX**3*q(6) *q(6) **2) +2*pX**k*q(6) *q(4) *q(6) -( 
6»pX**3*q(6>*q(4)*q(6))-(2*pl**2*«k*q(6)**2*q(3)*q(6)>+4*pl*»4*q(6)**2*q(3) 
*q(6)-(4*pX**2*«k*q(3)*q(6))-(2*pX**4*q(3)*q(6))+2*pl*«k*q(6)**2*q(2)»q( 

6) - (pl**3*q(6) **2*q(2) *q(6) ) +4*pX*«k*q(2) *q(6» - (5*pX*»3*q(2) *q(6) ) -(5*pX 
**4*q(6)*q(X)*q(6))+«k*q(6»**2*q(4)*q(5)+«k*q(4)*q(5)+pX**k»q(6)**2*q(l)*q( 

5) +pl*«k*q(l)*q(5)-(2*pX**2*«k*q(6)»*2*q(3)*q(4))-(6*pl**2*ek*q(3)*q(4))+ 
X2*pl**4*q(3)*q(4)+2*pX**k*q(6)**2*q(2)*q(4)-(6*pX**3*q(6)**2*q(2)*q(4))+ 
5*pl*ek*q(2)*q(4)-(X0*pX**3*q(2)*q(4))-(4*pX**5*q(6)**2*q(l)*q(3) )-(2*pX 
**3*ok*q(X) *q(3) ) +X4*pX*»5*q(X) *q(3) 

T0-T0+pl**3*«k»«j*(6*«k*q(6)**2*q(6)*q(7)+20*«k*q(6)*q(7)-(24*pl**2*q 

(6)*q(7))+6*ek*q(6)**2*q(4)*q(7)+X4*«k*q(4)*q(7)-(8*pX**2*q(4)*q(7))-( 

6*pl*«k*q(l)*q(7))+16*pX**3*q(X)*q(7)+7*«k*q(6)**2*q(5)*q(6)-(8*pl**2*q(6) 

♦*2*q(5)*q(6))+13*«k*q(5)*q(6)-(8*pX**2*q(5)*q(6))-(2*pX**2*«k*q(3)*q 
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.  («) )  -  (5*vl*«k*q<2)  *q<«) » >lC*pl**3*<i(2) **2«q(4)  ‘qiS)  ♦7*«k* 

.  q(4)*q(5)+8*pl**3*q(6)**2*q(l)*q(5)-<«*pl*«k*q(l)*q(5))+«*pl**3*q(l)*q( 

.  5)-(2*pl**2*«k*q(3)*q(4)>-(3*pl*«k*q(2)*q(4n+8*pl**3*q(2)*q(4>-(B*pl** 

.  4*q<l)*q<2)>)/3.0+pl*C«*(Tl-(S*pl**4*q(6)**2*q(l)*q(2))4pl»*2*«k*q( 

.  l)*q<2)-(5*pl**4*q(l)*q(2)))/3.0 

bM»2(l,7)-T0+2.0/3.0*pl**3»«lt**2*«l*(3*«k*q(6)*q(7)-(16*pl**2*q(«) 

.  *q<7)>+3*«k»q(4)*q(7)-(12*pl**2*q(4)*q<7»)+4*pl**3*q(l)*q(7)-(6*pl**2 
.  *q<6)**2*q(5)*q(6))+3*«li*q{5)*q(6)-a0*pl**2*q(5)*q(6))+«*pl»*3*q<2)*q 
.  (6) - (6*pl**2*q(«) **2*q(4) *q(5) ) +3*«k»q(4) *q(5) - (6*pl**2*q(4) *q(5) ) +4*pl 
.  **3*q(l)  *q(5)  +«*pl**3*q(2)  *q(4) )  +pl*<l«*  (2*q<6)  **2*q<4)  *q<7)  +q(4) 

.  *q(7)+2*pl*q<«)**2*q<l)*q(7)+pl*q(l)*q(7)+3*pl*q<6)*q(6)**2+4*pl*q(6)*q(4)* 
.  q(6) - (3*pl**2*q(fi) **2*q(3) *q<6) ) - (3*pl**2*q<3) *q(6) ) +3*pl*q(6>  **2*q(2) *q 
.  (6)+3*pl*q(2)*q(6)+pX**2*q(6)*q(l)*q(6)-<3*pl**2*q(6)**2*q(3)*q«>>-(5*pl 
.  **2*q(3)*q<4))+4*pl*q(6)**2*q(2)*q(4)+4*pl*q<2)*q(4)-(2*pl**3»q(l)*q(3 
.  ))+pl**2*q(6)**2*q(l)*q(2)+pl**2*q(l)*q(2) >/3.0- (8.0/3. 0*pl*»5*«k**3*r« 

.  *(q(6)+q(4))*(q(7)+q(5))) 

T0-4.0/3.0*pl**4*«k**2*«l*(4*(q(7J+q(5))**2+pl**2*(q(6)+q(4))**2) 

.  +f«* (6*pl**2*q(6) **4*q(7) **2+10**k*q(6) **2*q(7) **2- (22*pl**2*q(S) **2*q 
.  <7)**2)+10*«k*q(7»**2-(19*pl»*2*q<7)**2)-(10*pl**3*q(6)*q(6)*q<7))+10* 

.  •k*q(«)**2*q(5)*q(7)+10*«k*q(5)*q(7)+16*pl**4*q(6)**2*q(3)*q(7)-(16»pl**2 
.  *«k*q<3)*q(7))+«8*pl**4*q(3)*q(7)-(30*pl**3*q(fi)**2*q(2)*q(7))+6*pl*«k*q 
.  (2)*q(7)-(30*pl**3*q<2)*q(7) )+2*pl**2*«k»q(6)**2-(9*pl**4*q(6)**2)+«* 

.  pl**2*«k*q(4) *q(6) - (28*pl**4*q<4) *q(6) ) ♦2*pl**3*«k*q(l) *q(fi) - (10*pl**5* 

.  q(l) *q<6) ) - (l«*pl**2*«k*q(3) *q(5) ) +6*pl*«k*q(2) *q(5) +4*pl**2*«k*q(4) »*2 
.  +8*pl**4*q(4)**2+2*pl**3*«k*q(l>*q(4)+44*pl**5*q(l)*q(4)+32*pl**6*q(3) 

.  **2-(132*pl**5*q(2)*q(3))+81*pl**4*q(2)**2+27*pl*»6*q(l)**2)/6.0 

TO-TO-Hla*  (6*q(6)  **4*q(7)  **2+14*q<6)**2*q(7)  **2+7*q(7)  **2+2*pl*q(6)  *q 
.  (6) *q(7) - (16*pl*»2*q(6) »*2*q(3) *q(7) ) -(20*pl**2*q(3) *q(7) ) +6*pl*q(S) **2* 

.  q<2)*q(7)+6*pl*q(2)*q(7)+pl**2*q(6>**2+4*pl**2*q(4)*q(6)+2*pl**3*q(l) 

.  *q(6) - (3*pl**2*q(4) **2) - <10*pl**3*q(l) *q(4) > -(5*pl**4*q(3) **2) +30*pl 
.  **3*q<2)*q<3)-(18*pl**2*q(2)**2)-(6*pl**4»q(l)**2))/6.0 

TO-TO- (1 .0/6 . 0*h«* (20*pl**2*«k*q<6) **2*q(7) **2- (7**k**2*q(7) **2) +44 
.  *pl**2*«k*q(7)**2-(36*pl*»4*q(7)**2)+20*pl**2*«k*q(6)**2*q(5)*q(7)-(14**k 
.  **2*q(5)*q(7))+44*pl**2*«k*q(5)*q(7)-(44*pl**4*«k*q(3)*q(7))+72*pl**5* 

.  q(2) *q(7) - (pl*+2*«k**2*q(6) **2) +12*pl**4*«k*q(6>  **2- (12*pl**6*q(6) **2) 

.  -(2*pl**2*«k**2*q(4)*q<6))+24*pl*M*«k*q(4)*q(6)+24*pl**7*q(l)*q(6)-(7 
.  *«k**2*q(5) **2) - (44*pl**4+«k*q<3) *q(5) ) -(pl**2*«k**2*q(4) **2) +12*pl**4* 

.  •k*q(4)**2-(36*pl**6*q(2)**2)-(12*pl»*8*q(l)**2))) 

bnm2  <2, 2)-T0- <1 . 0/3 .0*pl**2*«k*«j* (8*«k»q(7) **2- (24*pl**2*q(7) **2) 

.  -  (8'*pl**2*q(6)  **2*q(5)  *q(7) )  +16*«k*q(5)  *q(7) -  (24*pl*+2*q(5)  *q(7) )  +24»pl 
.  **3*q(2)*q(7)+3»pl**2*«k*q<6)**2-(8*pl**4*q(6)**2)+6*pl**2*«k*q<4)*q(6 
.  )-(8*pl**4*q<4)*q(6))+8»pl**S*q(l)*q(6)+8*«k*q(5)**2+24*pl**3*q(2)*q( 

.  5)+3*pl**2*«k*q(4)»*2+8*pl**5*q(l)*q(4)))+«»*(q(4)**2+2*pl*q(l)*q 
.  (4) +3*pl**2*q(3) **2- (6*pl*q(2) *q{3) )+3+q(2) **2+pl**2*q(l) **2) /2 . 0 

TO— (1.0/6. 0*pl*<l«*(6+q(6)**4*q<7)*»2+14*q(6)**2*q(7)**2+7*q(7)**2 
.  +8*pl*q(6)*q(6)*q(7)-(26*pl**2*q(6)*»2*q(3)*q(7))-(34*pl**2*q(3)*q(7))+ 

.  16*pl*q(6)**2*q(2)*q(7)+20*pl*q(2)*q(7)+pl**2*q(6)**2+10*pl**2*q(4)*q(6 
.  )+8*pl**3*q(l)*q(6)+4*pl**2*q(4)**2-(2*pl**3*q(l)*q(4) )+12»pl**4*q(3) 

.  ♦*2+10*pl**3*q(2) *q(3) -(15*pl**2»q(2) **2)-(5*pl**4*q(l) **2) ) ) 

TO-TO- (1 . 0/3 . 0*pl*f«* (5**k*q(6) **2*q(7) **2-(4*pl**2*q(6) **2*q(7) +*2) + 

.  5*«k*q(7)**2+pX**2*q(7)**2-(6*pl**3*q(6)*q(6)*q(7))+5*«k*q(6)»*2*q(5)*q(7 
.  )+5*«k*q(5)*q(7)-(13*pl**2**k*q(3>*q(7))+32*pl**4*q(3)*q(7)-(8*pl**3* 

.  q(6)**2*q(2)*q(7))+8*pl*«k*q(2)*q(7)-(34*pl**3*q(2)*q(7))+pl**2*«k*q(6) 

.  **2-(pl**4*q(6)**2)+5*pl**2*ek*q(4)*q(6)-(12*pl**4*q(4)*q(6))+3*pl»*3* 

.  ek*q(l) *q(6) -(10*pl**5*q(l) »q(6) )-(13*pl**2**k*q(3) *q(5) )+8*pl*«k*q(2) * 

.  q(5)+4*pl*+2*«k*q(4)**2+3»pl**3*«k*q(l)*q(4)+12*pl**5*q(l>*q(4)-(32*pl 
.  **5*q(2) *q(3) )+33*pl**4*q(2) **2+ll*pl**6*q(l) **2> ) 

biBn2(2,3)-T0+pl*ek*h«*(8*pl**2*q(6)**2*q(7)**2-(7**k*q(7)**2)+4*pl**2 
.  *q(7)**2-(14*ek*q(5)*q(7))+4*pl**2*q(5)*q(7)-(48*pl**4*q(3)*q(7))+44 
.  *pl**3*q(2) *q(7) - (pl**2**k*q(6) **2) - (2*pl**2*»k*q(4 ) »q(6) ) +16»pl**4*q(4 
.  )*q(6)+16*pl**5*q(l)*q(6)-(7**k*q(5)**2)-(48*pl**4*q(3)*q(5))+44*pl** 

.  3+q(2)*q(5)-(pl**2*ek*q(4)**2)+16*pl**4*q(4)**2+16*pl**5*q(l)»q(4) )/ 

.  6.0-(2.0/3.0*pl**3*«k**2**j*(q(7)+q(5))**2)-(1.0/2.0*pl*a«*( 

.  q(4)**2+2*pl*q(l)*q(4)+3*pl**2*q(3)**2-(6*pl*q(2»*q(3))+3*q(2)**2+pl 
.  **2*q(l)**2)) 

T0-pl**3*ek**j*(6*«k*q(6)**2*q(6)*q(7)+15*ak*q(6)*q(7)-(8*pl**2*q(6)* 

.  q(7))+6*«k*q(6)*»2*q(4)*q(7)+10*ek*q(4)<'q(7)-(5*pl*«k*q(l)*q(7))+8*pl**3 
.  *q(l)*q(7)+9*ek*q(5)*q(6)-(6*pl*«k*q(2)*q(6) )+8*pl**3*q(2)*q(6)+4*«k»q 
.  (4)*q(5)-(5*pl**k*q(lV*q(5))-(6*pl**k*q(2)*q(4))-(8*pl**4*q(l)*q(2)))/ 

.  3.0+pl*f«*(2**k*q(6)*"2*q(6)*q(7)+6*pl**2*q(6)**2*q(6)*q(7)+4*ek*q(6) 

.  *q(7)+2*pl**2*q(6)*q(7)+4*ek*q(6)**2*q(4)*q(7)+9*«k*q(4)*q(7)-(8*pl*»2* 

.  q(4) *q(7) )+2*pl*ek*q(6) **2*q(l) *q(7) -(6*pl**3*q(6) **2*q(l) *q(7) ) +5*pl*«k*q 
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(l)*q<7)-(10*pl»*3*q(l)*q<7))+2*«k*<l(5)*q(6>-(5*pl**2*«k*q(3)*q{6))  + 
12*pX**4*q(3) *q(6) +3*pl*«k*q(2) *q<«) -<l<*pl**3*q(2) ‘qie) ) +5*«k*q(4) *q( 
5)+3*pl*«k*q(l)*q<5)-(8*pl**2*«k*q(3)*q(4)»+4*pl*«k*q<2)*q<4)+8*pl**3*q( 
2)*q<4)-(3*pl**3*«k*q(l)*q(3))-(12*pl**5*q<l)*q(3))+pl**2*«k*q(l)*q(2) 
+22*pl**4*q(l) *q(2) ) /3 . 0 

T0-T0+pl*«k*h«*(10*pl**2*q(6)**2*q{6)*q(7)+3*«k*q(6)*q(7)+4*pl**2*q(6 
)*q(7)+8*pl**2*q<6)**2*q(4)*q(7)+6*«k*q(4)*q(7)-(12*pl**2*q(4)*q(7))-( 
2*pl**3*q(6)  **2*q(l)  *q(7) )  ■t'3*pl*«k*q(l)  *q(7)  -(16*pl**3»q(l)  *q(7) )  +3*«k*q 
(5)*q(6)-(pl**2*«k*q(3)*q<6))+8*pl**4*q(3)*q<6)+pl*«k*q(2)*q(6)-(12*pl 
**3*q<2)*q<6))+6*«k*q(4)*q(5)-<8*pl**2*q(4)»q(5))+3*pl*«k*q(l)*q<5)-( 
8*pl**3*q(l) *q<5) ) - (pl**2*«k*q(3) *q(4) ) +16*pl**4*q(3) *q(4) +pl*«k*q(2) *q 
(4)-(12*pl**3*q(2)*q(4))+8*pl*»5*q{l)*q(3»)/3.0+pl*d**(3*q(6)**2* 
q<6)*q<7)+3*q(6)*q(7)+7*q(6»**2*q(4)*q(7)+7*q(4)*q(7)+4*pl*q(6)**2*q(l 
)*q(7)+4*pl*q(l)*q(7)-(5*pl**2*q{3)*q(6))+2*pl*q(2)*q(6)-<4*pl**2*q(3 
)*q<4))-(3*pl*q(2)*q(4))+pl**3*q<l)*q<3)-(5*pl**2*q(l)*q<2)))/3.0 

bmn2(2,4)-TO+2.0/3.0*pl**3*«k**2*«l*(3**k*q(6)*q(7)-(10*pl**2*q(6) 

*q(7) )+3*«k*q(4)*q(7)-(4*pl**2*q{4)*q(7))+6*pl**3*q(l)*q(7)+3*«k*q(5) 

*q(6) - <6*pl**2*q(5) *q(6) ) +4*pl**3*q(2) *q(6) +3*«k*q(4) *q(5) +6*pl**3*q( 

1) *q(5)+4*pl**3*q<2)*q(4))-<8.0/3.0*pl**5*«k**3*r«*(q(6)+q<4))*( 
q(7) +q(5) ) )- (a«* (pl*q<3) -q<2) ) * (q<4)+pl*q(l) ) ) 

TO— (4.0/3.0*pl**3*«k*»3*r«*(3*(q<7>+q<5))**2+pl**2*(q(6)+q(4))** 

2) )+ek*h«*<6*pl*q<6)**4*q<7)**2+14*pl*q(6)**2*q(7)**2+10*pl*q(7)**2-( 
2*pl**2*q<6)*q(6)*q(7))-(7*pl*«k*q(3>*q(7))+2*pl**3*q(3)*q(7)-(X0*pl**2* 
q(6)**2*q<2)*q(7))+7*«k*q(2)*q(7)-{22*pl**2»q(2)*q(7))+4*pl»*3*q<6)**2 
+3*pl**k*q(4)*q(6)+3*pl**2*ek*q(l)*q(6»-(8*pl**4*q(l)*q(6))-(7*pl*«k*q(3 
)*q(5))+7*«k*q(2)*q<5)+3*pl*«k*q<4)**2-(4*pl**3*q(4)**2)+3*pl**2*ek*q(l 

) *q(4) - (8*pl**4*q(l) *q(4) ) - (12*pl**5»q<3) **2) +22*pl**4*q(2) *q(3) ) / 

3.0 

T0-T0+pl*«k*«j*(16*«k*q(6)**2*q(7)**2-(8*pl**2*q(6)**2*q(7)**2)+20**k*q 
<7)**2-(12*pl**2*q(7)**2)+20**k*q<6)**2*q(5)*q(7)+20**k*q(5)*q(7)-(4*pl 
**2*®k*q(3)*q(7))+8*pl**3*q<6)»»2*q(2)*q(7>-(16*pl*ek*q(2)*q(7))+24*pl** 
3*q(2)*q(7)+7*pl**2*«k*q(6)**2-(4*pl**4*q(6)**2)+9*pl**2*«k*q<4)*q(6)- 
(5*pl**3*«k*q(l) *q(6) ) +8*pl**5*q<l) *q<€) -(4*pl**2*ek*q(3) *q(5) ) - (16*pl* 
•k*q(2)*q(5))+2*pl**2*«k*q(4)**2-(5*pl**3*«k*q(l)*q(4))-(12*pl**4*q(2) 
**2)-(4*pl**fi*q(l)**2))/3.0 

bmn2 (2, 5)-T0- (1 . 0/3 . 0*pl*«k**2»«X*  <12*pl**2*q(6) **2*q(7) **2-(9*»k*q( 
7)**2)+32*pl**2*q<7)**2+24*pl**2*q<6)**2*q(5)*q(7)-(18*»k*q(5)*q(7))+ 
32*pl**2*q(5)*q(7)-(32*pl**3*q(2)*q(7))-(3*pl«*2*«k*q(6)**2)+12*pl**4* 
q(6)**2-(6*pl**2*«k'*q(4(*q<6))+12*pl**4*q<4)*q<fi)-(12*pl**5*q(l)*q(6) 

> - (9*«k*q(5) **2) -(32*pl**3*q(2) *q<5) )-(3*pl**2*«k*q(4) **2) -(12*pl**5*q 

(1)  *q(4) ) ) )+«k*f«*  <4*q<6) *q(6) *q<7)-(10*pl*q(6) **2*q(3) *q(7) ) -(10*pl 
*q(3)*q(7))+10*q<6)**2*q<2)*q<7)+10»q(2>»q(7)+4*pl*q(4)*q(6)+4*pl*»2* 
q(l)*q(6)+5*pl*q<4)**2+6*pl**2*q(l>*q(4>+13*pl**3*q(3)**2-(16*pl**2*q 

(2) *q(3) )+3*pl*q<2)**2+pl**3*q<l)*»2)/6.0 

TO-fe* (3*pl**2*q(6) **3*q(7) **2+2*ok*q(6) *q(7) »*2-(pl**2*q(6) *q(7) **2) +7 
*pl**3*q(6) **2*q(6) *q(7)+7*pl**3*q(6) *q(7)+2*ok*q(6) *q(5) *q(7) +2*pl*«k*q(6) 
**2*q(4)*q(7)+6*pl**3*q(6)**2*q(4)*q(7)+4*pl*«k*q(4)*q(7)+2*pl**3*q(4)* 
q<7)+6*pl**4*q(6)*q(3)»q(7)-(5*pl**3*q(6)*q<2)*q(7))+2*pl**2*«k*q(6)*»2*q(l 
) *q<7) -<pl**4*q<6) **2*q{l) *q(7) )+4*pl**2*«k»q(l) *q(7) - (5*pl**4*q(l) *q(7 
))-<2*pl**3*ek*q(3)*q(6))+2*pl**5*q(3)*q(6)+2*pl**2*ok*q(2)*q(6)-(9*pl 
**4*q(2) *q(6) )+2*pl**k*q(4) *q<5)+2*pl**2**k*q(l) *q(5) - (5*pl**3*ek*q(3) * 
q<4) ) +12*pl**5*q(3) *q(4) +3*pl**2*ek*q(2) *q(4) - (14*pl**4*q(2) *q(4 ) ) - (3 
*pl**4*«k*q(l)*q<3))+10*pl**6*q<l)*q(3)+pl**3*ok*q(l)*q(2)-(5*pl**5*q(l 
)*q(2)))/3.0 

T0-T0+de*(3*q<6)**3*q<7)**2+3*q(6)*q(7)**2+3*pl*q«6)**2*q(4)*q(7)+3* 

pl*q(4)*q(7)-(4*pl**2*q(6)*q(3)*q(7))+pl*q(6)*q(2)*q(7)+3*pl**2*q(6)**2*q(l 

)*q(7)+3*pl**2*q(l)*q(7)-(pl**3*q(3)*q(6))+pl**2*q(2)*q(6)-(5*pl**3*q 

(3)  *q<4) )+2*pl**2*q(2) *q(4) - (4*pl**4*q(l) *q(3) ) +pl**3*q(l) *q(2) ) /3. 0 

TO-TO- (1 . 0/3 . O*pl*ho* (2*pl*ek*q<6>  *q(7) **2- <12*pl**2*ek*q(6) **2*q(6) *q( 

7))-(20*pl**2*ak*q(6)*q(7))+12*pl**4*q<6)*q<7)+2*pl*ek*q(6)*q(5)*q(7)-( 
10*pl**2*ek*q(6)**2*q<4)*q(7))-<3*ek**2*q<4)*q(7))-(4*pl**2*ak*q(4)*q(7) 
)+2*pl**3*ek*q(6)**2*q(l)*q(7)-(3*pl*«k**2*q(l)*q(7) )+16*pl**3*ek*q(l)*q( 
7)-(12*pl**5*q(l)*q(7))-(8*pl**2*«k*q(5)*q(6))+pl**2*ek**2*q(3)*q(6)-( 
pl*ek**2*q<2)*q(6))+12*pl**3*ek*q(2)*q(6)-<12*pl**5*q(2)*q(6))-(3*ek**2 
*q(4) *q(5) ) - (3*pl*ok**2*q(l) *q(5) ) +8*pl**3*ek*q(l) *q(5)+pl**2*ek**2*q(3 
)*q(4)-(8*pl**4*ek*q(3)*q<4) )-<pl*ak**2*q(2)*q(4) )+12*pl**3*ek*q(2)*q(4 
) - (8*pl**5*ok*q(l) *q(3) ) +12*pl**6*q<l) *q(2) ) ) 

bmn2 (2, 6)-T0+pl**3*ek*oj* (6*ok*q<6) **2*q(6) *q(7) +20*ok*q(6) *q(7) -(24 
*pl**2*q(6)*q(7) )+6*ok*q(6>**2*q(4)*q(7)+15*ak*q(4)*q(7)-(8*pl**2*q(4)* 
q(7) ) - <5*pl*ek*q(l) *q(7 ) ) +16*pl**3*q(l) *q(7) +X4*ok*q<5) *q(6) - (8*pl**2* 
q(5)*q(6))-(6*pl*ek*q(2)*q(6))+16*pl**3*q(2)*q(6)+9*ok*q(4)*q(5)-(5*pl 
*ek*q(l)*q(5))+8*pl**3*q(l)*q(5)-(6*pl*ok*q(2)*q(4))+8*pl**3’»q(2)*q(4) 
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.  - (8*pl**4*q(l)  •q(2> ) )  /3 . 0>2 . 0/3 . 0*pl**3*«k**2*«l* (3*«k*q«)  *q(7» - 
.  (l€*pl**2*q(«)  *q(7) ) >3*«k*q(4)  *q(7) -{10^1**2*q<4)  *q(7) )  4^6*pl**3*q(l) 

.  *q(7)+3*«k*q(5)*q(6)-(12*pl**2*q<5>*q<«n+4*pl**3*q(2>*q(«)+3*«k*q(4) 

.  *q(5)-(S*pl**2*q(4)*q(5))+6*pl**3*q(l)*q(5)+4*pl**3*q(2>*q(4))-(8.0/ 

.  3.0*pl**5*«k**3*r«*(q(6)+q(4))*(q<7)+q<5)») 

T0-6*pl*«k*q<6)**4*q(7)**2+30*pl*«k*q(6»*»2*q(7)**2+30*pl*«k*q(7)**2-<18*pl** 
.  3*q(7) **2) - (4*pl**2*«k*q(6) *q(6) *q<7» ) >12*pl*ak*q(6) **4*q(5) *q(7) +28*pl»«k* 

.  q(6) **2*q(5) *q(7>  +20»pl*«k*q(5) *q(7)+8*pl**3*«k*q(6) **2*q(3) *q(7) - (7*pl*«k 
.  **2*q<3)*q(7))+4*pl*»3*«k‘q(3)*q(7)-(20*pl**2*«k*q(6)**2*q(2)*q(7))+7*«k 
.  **2*q(2)*q(7)-(44*pl**2*«k*q(2)*q(7))+36*pl**4»q(2)*q(7)+6*pl**3*«k*q<«) 

.  **2*q<6) **2+10*pl**3*«k*q(6) **2-(6*pl**5*q<fi) **2) - (2*pl‘*2*«k*q(6) *q(5) * 

.  q(6))+10*pl**3*«k*q<6)**2*q(4)*q<6>+3*pl»«k**2*q(4)*q(6)+4*pl**3*«k*q(4)* 

.  q(6)-(2*pl**4*«k*q<6)**2*q(l)*q<6n+3*pl»*2*«k**2*q(l)*q(6»-(l6*pl**4*«k* 

.  q(l)*q(6>)+12’*pl**«*q(l)*q(6)-<7*pl*«k**2*q(3)*q(5))+2*pl**3»«k*q(3)*q 
.  (5)-(10*pl**2*«k*q(G)**2*q(2)*q(5))+7*«k**2*q<2)*q(5)-(22*pl**2*«k*q(2>* 

.  q(5) ) +4*pl**3*«k*q<6) **2*q(4) **2+3*pl*»k**2*q(4) **2- <6*pl**3*«k*q(4) **2) 

Tl-18*pl*q(6) **4*q(7) **2+39*pl*q(6) **2*q(7) **2+21*pl*q(7) **2+12*pl**2*q(«) ** 

.  3*q(6)*q<7)+8*«k*q(6)*q(6)*q(7)-(4*pl**2*q(«)*q(6>*q(7)»-(20*pl*«k*q(«)**2* 

.  q(3) *q<7) ) +16*pl**3*q<6) **2*q(3) *q(7) -(20*pl*«k*q(3) *q(7) ) - (4*pl**3*q<3 
.  )*q(7))+12*pl**2*q(6)**4*q(2)*q(7)+20*«k*q(«)**2*q(2>*q(7)-(44*pl**2*q(fi) 

.  **2*q(2)*q(7))+20*«k*q(2)»q(7)-<38*pl**2*q<2)*q(7))+7*pl**3*q(6)**2*q( 

.  6)  **2+7*pl**3*q(6>  **2+4*«k*q(6)  *q(5»  *q(6)  ■t'4*pl**k*q(6)  **2*q(4)  *q(6)  n2*pl 
.  **3*q(6)**2*q<4)*q(6)+8*pl*«k*q(4)*q(«J+4*pl**3*q(4)*q(6)+12*pl**4*q(S)*q 
.  (3)*q(6)-(10*pl**3*q(6)*q(2»*q(6))+4*pl**2*«k*q(6)**2*q(l)*q(6)-(2*pl**4* 

.  q(6)**2*q(l)*q(6))+8*pl**2*®k*q(l)*q<6)-(10*pl**4*q(l)*q(6>>-(10*Pl*«k* 

.  q(6)**2*q(3)*q(5))-(10*pl»«k*q(3)*qC5))+10*«k*q(6)»*2*q(2)*q(5)+10*«k*q<2 
.  )*q(5)+4»pl**k*q<6)**2*q(4)**2+9*pl*«k*q(4>**2-<8*pl**3*q<4)**2)+4*pl**2* 

.  •k*q<6)**2*q(l)*q(4) 

TO— (4.0/3.0*pl**3*«k**3*r«*(3*<q<7)+q(5))**2+pl**2*(q(6)+q(4))** 

.  2> ) +h** (TO- (2*pl**4*«k*q<6) **2*q<l) *q(4>  >  +3*pl**2*«k**2*q(l) *q(4) - ( 

.  16*pl**4*«k*q<l)*q(4) )-(12*pl**5*«k*q(3)**2)+22*pl**4*«k*q(2)*q(3)-(18* 

.  pl**5*q(2)**2)-(6*pl**7*q(l)**2))/3.0+fe*(Tl-(12*pl**4*q(6)»*2*q(l 

.  )*q<4»)+10*pl**2*ek*q(l)*q(4)-(20*pl**4*q(l)‘q(4))+13*pl**3**k*q(3)**2 
.  - (32*pl**5*q<3>  **2) +16*pl**4*q<6) **2*q(2) *q(3) - (16*pl**2*«k*q(2) *q(3) )  + 

.  S8*pl**4»q(2)*q<3)-(15*pl**3*q(6)**2*q(2)**2)+3*pl**k*q(2)**2-(15*pl**3* 

.  q(2) **2) -(5*pl**5*q(6) **2*q<l) **2)+pl**3*«k*q(l) **2-(5»pl**5*q(l) **2> ) / 

.  6.0 

T0-T0+pl*«k*«j* (18**k*q(6) **2*q<7) **2+30**k*q(7>  **2-(36*pl**2*q(7) **2 
.  ) +32*«k*q(6) **2*q(5) •q(7) - (16*pl**2*q<6) **2*q(5) *q(7) ) +40*«k*q(5) *q(7) - ( 

.  24*pl**2*q<5)*q(7))-(4*pl**2**k*q(3)*q<7))-(16*pl*«k*q(2)*q(7>)+48*pl** 

.  3*q<2)*q(7)+3*pl**2*«k*q(6)**2*q(6)**2+10*pl**2*«k*q(6)**2-(12*pl**4*q(6 
.  )**2)+6*pl**2*«k*q(6)**2*q(4)*q<6)+15*pl**2*ak*q(4)*q(6)-(8*pl**4*q(4)*q 
.  (6) ) - (5*pl**3**k*q(l) *q(6) ) +16*pl**5*q(l) *q(6) +10*ak»q(6) **2*q(5) **2+10 
.  *ek*q(5)**2-<4*pl**2*«k*q(3)*q(5))+8*pl**3*q(6)**2*q(2)*q(5)-(16*pl*«k*q( 

.  2) *q(5) ) +24*pl**3*q(2) *q(5)+3*pl**2*«k*q(6) **2*q(4>  **2+5*pl**2*«k*q(4>  ** 

.  2-(5*pl**3*ok*q(l)*q(4))+8*pl**5*q(l)*q(4>-(12*pl**4*q(2)**2)-(4*pl**6 
.  *q(l)**2) )/3.0 

T0-T0+pl*«k**2*el* (9*«k*q(7) **2- (48*pl**2*q(7) **2) -(24*pl**2*q(6) **2* 

.  q(5)*q<7) )+18*«k*q(5)*q(7)-(64*pl**2*q<5)*q(7) )+32*pl**3*q(2)*q(7)+3 
.  *pl**2*ek*q(6)**2-(16*pl**4*q(6)**2)+6*pl**2*ok*q(4)*q(6)-(20*pl**4*q(4 
.  )*q(6))+12*pl**5*q(l)*q(6)-(12*pl**2*q(6)**2*q(5)**2)+9**k*q(5)**2-(16 
.  *pl**2*q(5)**2)+32*pl**3*q(2)*q(5)+3*pl**2*ak*q(4)**2-(4*pl**4*q(4>**2 
.  )+12*pl**5*q(l)*q(4))/3.0 

bmn2  (2,  7)-T0+cle*  (12*q(6)  **3*q(6)  *q(7)+12*q(6)*q(6)  *q(7)  -(12*pl*q(6) 

.  **4*q(3)*q(7))-(28*pl*q(6)**2*q(3)*q(7))-(14*pl*q(3)*q(7))+12*q(6)**4*q 
.  (2)*q(7)+28*q(6)**2*q(2)*q(7)+14*q(2)*q(7)+6*pl*q(6)**2*q(4)*q(6)+6*pl* 

.  q(4)*q(6)-(8*pl**2*q(6)*q(3)*q(6))+2*pl*q(6)*q(2)*q(6)+6*pl**2*q(6)**2*q(l 
.  ) *q(6>+6*pl**2*q(l) *q<6) +7*pl*q(6) **2*q(4) **2+7*pl*q(4) **2+8*pl**2*q(6) ** 

.  2*q(l)*q(4)+8*pl**2*q(l)*q(4)+13*pl**3*q(6)**2*q(3)**2+17*pl**3*q(3)** 

.  2- <16*pl**2*q(6) **2*q(2) *q(3) ) - (20*pl**2*q(2) *q(3) ) +3*pl*q(6) **2*q(2)  **2 
.  +3*pl*q(2) **2+pl**3*q(6) **2*q(l) **2+pl**3*q(l) **2) /6 .0 

TO-4 . 0/3.0*pl**4*ek**2*ej* (4* (q<7)+q(5) ) **2+pl**2* (q(6) +q(4) ) **2) 

.  +pl**2*de*(6*q(6)**4*q<7)**2+14*q<6)**2*q(7)**2+7*q(7)**2+14*pl*q(6) 

.  *q(6)*q(7)-(36*pl**2*q<6)**2*q<3)*q(7))-(48*pl**2*q(3)*q(7))+26*pl*q(6) 

.  **2*q(2)*q(7)+34*pl*q(2)*q<7)+pl**2*q(6)**2+16*pl**2*q(4)*q(6)+14*pl 
.  **3*q(l)*q(6)+12*pl**2*q(4)**2+8*pl**3*q(l)*q(4)+36*pl**4*q(3)**2-( 

.  24*pl**3*q(2) *q(3) ) - (5*pl**2*q(2) **2) -(3*pl**4*q(l) **2) ) /6.0 

T0-T0+pl**2*fe*(5*ek*q(6)**2*q(7)**2+5*ek*q(7)**2+16*pl**2*q(7)**2+5 
.  *ek*q(6) **2*q(5) *q(7) +5*ok*q(5) *q<7) - (18*pl**2*ok*q(3) *q(7) >  +13*pl*ak*q(2 
.  ) *q<7) - (32*pl**3*q(2) *q(7) ) +pl**2*ak*q(6) **2+4*pl**4*q(G>  **2+7*pl**2*ak 
.  *q<4) *q(6) +5*pl**3*ak*q(l) *q(6) -(8*pl**5*q(l>  *q(6) ) - (18*pl**2*ak*q(3) * 

.  q(5))+13*pl*ek*q(2)*q(5)+6*pl**2*ak*q<4)**2+5*pl**3*ak*q(l)*q(4)+16*pl** 
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4*q<2)**2+4»pl**6*q(l)**2)/3.0+pl*<'2*«k*h«*(7*«k*q(7)**2+48*pl**2* 
q<7) **2+16*pl**2*q(6) **2*q(5) *q(7)+14*«k*q(5) *q(7) +48*pl**2*q(5) *q(7) - 
(48*pl**3*q(2)  *q<7) )  ■tpX**2*«k*q(e)  **2+l«*pl**4*q(8)  **2+2*pl**2*«k*q(4)  * 
q(6)+lfi*pl*M*q(4)*q<«)-(16*pl**5*q(l)*q(«»>+7*«k*q(5)**2-(48*pl**3*q 
<2)*q(5))+pl**2*»k*q(4)**2-(16*pl**5*q(l)*q<4)))/6.0 
bm2  (3, 3)-T0+pl**2*a«*  (q(4)  **2+2*pl*q<l)  *<1<4»  +3*pl**2*q(3)  **2-(6* 
pl*q(2)*q(3))+3*q(2)**2+pl**2*q(l»**2)/2.0 
10— (1.0/3. 0*pl**2*£«*<2*«k*q(6)**2»q<6)*q(7)+4*ak*q(6)*q{7)+12*pl** 
2*q(6)*q(7)+4*«k*q(«>**2*q(4)*q(7)+10*ak*q(4)*q(7)+2*pl*«k*q(6)**2*q(l)*q 
(7)+6*pl*«k*q(l) *q(7) - (12*pl**3*q(l) *q<7) )+2*«k*q(5) *q<6) - (7*pl**2*«k*q 
(3) *q(6) )+5*pl*«k*q(2) *q(fi) - <12*pl**3*q(2J  *q(«) ) +6*ak*q(4>  *q{5) +4*pl*ak 
*q(l) *q(5) - (12*pl**2*ak*q(3) *q(4) ) +8*pl*«k*q(2) *q(4) - (5*pl**3*«k*q(l) *q 
(3) )  +3*pl**2*«k*q(l)  *q(2)  +12’*pl**4*q(l)  *q(2) ) ) 

TO-TO-  (1 . 0/3 . 0*pl**2*«k*h«*  (4*pl**2*q«)  **2*q(6)  *q  (7)  -f3*«k*q(6)  *q(7) 
+24*pl**2*q(6) *q(7) +6*«k*q(4) *q<7)+16*pl**2*q(4) *q(7) - (4*pl**3*q(6»  **2* 
q(l)*q<7))+3*pl*«k*q(l)*q{7)-(8*pl**3*q(l)*q<7)>+3*«k*q(5)*q(6)+8*pl** 
2*q(5)  *q(6)  -  (pl**2*«k*q(3)  *q(6)  )  -(8*pl*M»q(3)  *q(6) )  >pl**k*q(2)  *q(6)  -  ( 
8*pl**3*q(2)*q(6))+6*«k*q(4)*q(5)+3*pl*»k*q(l>*q(5)-(8*pl**3*q<l)*q(5) 
)-(pl**2*ak*q(3)*q(4))+pl*ak*q(2)*q(4)-(16*pl**3*q(2)*q(4))+8*pl**5*q(l 
) *q(3) - (8*pl**4*q(l) *q<2) ) ) ) - (1 .0/3. 0*pl**2*d** (3*q(6>  **2*q(6) *q 
(7)+3*q(6)*q(7)+6*q(6)**2*q(4>*q(7)+8*q(4)*q(7»+3*pl*q<6>**2*q(l)*q(7) 
+5*pl*q(l)*q(7)-(8*pl**2*q(3)*q(6))+5*pl*q(2)*q(6)-(12*pl**2*q(3)*q(4 
) )+4*pl*q(2) *q(4) -(4*pl**3*q(l) *q(3> )-(pl**2*q(l) *q(2) ) ) ) 
biim2  (3, 4)-T0-  <2 . 0/3 .0*pl**4*ak**2*aj*  (2*q(6)  **2*q(6)  *q(7)  +15*q(fi)  * 
q(7)+2*q(6)**2*q(4)*q(7>+16*q<4)*q(7J+pl*q(l)*q(7)+ll*q(5)*q(6)-(4*pl 
**2*q<3)*q(6))+12*q(4)*q(5)+pl*q<l)*q(5>-(4*pl**2*q(3)*q(4))))-(8.0 
/3 . 0*pl**4*ak**3*al* (q(6) +q(4) ) * (q(7)4q<5) ) ) +pl*aa* (pl*q(3) -q 
<2))*<q<4)+pl*q(l)) 

TO— (4.0/3.0*pl**2*ak**3*«l*<3*(q<7)+q(5))**2+pl**2*(q»6)+q(4))** 

2)  ) - (1 . 0/3 . 0*pl*ak*ha* (4*pl*q(6) **4*q(7) **2+lfi*pl*q(6) **2*q(7) »*2+13* 
pl*q(7) **2+4*pl**2*q(6) *q(6) *q(7) -(8«pl»*3*q(6) **2*q(3) *q(7) ) - <7*pl*«k»q(3 
) *q(7) ) - (24*pl**3*q(3) *q<7) ) +7*ak*q(2) *q(7) -(2*pl**2*q(2) *q(7) ) +5*pl 
**3*q(6)**2+3*pl*ak*q<4)*q(6)+8*pl**3*q(4)*q(6)+3*pl**2*ak*q(l)*q(6)-( 
2*pl**4*q<l)*q(6))-(7*pl*ak*q<3)*q<5))+7*ak*q(2)*q(5)+3*pl*ak*q(4)**2+3 
*pl**2*ak*q(l)*q(4)-<8*pl*M*q(l)*q(4))+24*pl**4*q(2)*q(3>-(ll*pl**3*q 
(2)**2)-(3*pl**5*q<l)**2)))-(2.0/3.0*pl»*2*ak**2*aj*(10*q(6)**2*q( 
7)**2+14*q(7)**2+12*q(6)**2*q(5)*q(7)+14*q(5)*q(7>-(16*pl**2*q(3)*q( 
7))+2*pl*q(2)*q<7)+5*pl**2*q(6)**2+ll*pl**2*q(4)*q(6)+pl»*3*q(l)*q(6) 

- (16*pl**2*q(3) *q(5) ) +2*pl*q(2) ‘qiS) +€*pl**2*q(4) **2+pl**3*q(l) *q(4> ) 

) 

bmn2 (3, 5) -TO- <1 . 0/3 .0»pl*ak*fa* (2*q{6) *q{6) *q(7) - (5*pl*q(6) **2*q(3) *q 
(7))-(5*pl*q(3)*q<7))+5*q<6)**2*q<2»*q(7)+5*q(2)*q(7)+2*pl*q(4)*q(6)+ 
2*pi**2*q(i) *q(6) +3*pl»q<4) **2+4*pl**2*q(l) *q<4>  +9*pl**3*q(3) »*2- (13* 
pl**2*q(2) *q(3) ) +4*pl»q(2) **2+pl**3*q(l»  **2) ) 

TO—  (1 . 0/3. 0*pl*da*  (3*q(6)  **3*q(7)  •*2+3*q(6)  *q(7)  **2+3»pl*q(6)  **2*q(4 
)*q(7)+3*pl*q(4)*q(7)-(7*pl**2*q(6)*q(3)»q(7))+4*pl*q(6>*q(2)*q(7>+3*pl** 
2*q(6)**2*q(l)*q(7)+3*pl**2*q(l)*q(7)-(pl**3*q(3)*q(6))+pl**2*q(2)*q(6 
)-(8’‘pl**3*q(3)*q(4))+5*pl**2*q(2»*q(4J-(7*pl**4*q(l)*q(3))+4*pl»*3*q 
(l)*q(2))) 

TO-TO- (1. 0/3. 0*pl*fa*(2*ak*q(6)*q(7)**2+6*pl**2*q(6)*q(7> **2+4  *pl**3* 
q(6) **2*q(6) *q(7) +10*pl**3*q(6) *q(7>  +2*ak*q(6) *q(5) *q(7) +2*pl*ak*q(6) **2*q( 

4) *q(7)+4*pl*ak*q(4)*q(7)+12*pl**3*q(4)*q(7)-(6*pl**3*q(6)*q(2)*q(7))+2 
*pl**2*ak*q(6)**2*q(l)*q(7)-(4*pl**4*q(6)**2*q(l)*q(7))+4*pl**2*ak*q(l)*q( 
7)+2*pl**4*q(l)*q(7)-(2*pl**3*ak*q(3)*q(6))-(8*pl**5*q(3)*q(6))+2*pl** 
2*ak*q(2) *q(6) -(2*pl**4*q(2) *q(6) )+2*pl*ak*q(4) *q(5) +2*pl**2*ak*q(l) *q( 

5) -(7*pl**3*ak*q(3)*q(4))+5*pl**2*ak*q(2)*q(4)-(12*pl**4*q(2)*q(4) )-(5 
*pl**4*ak*q(l)*q(3))+8*pl**6*q(l)*q(3)+3*pl**3*ak*q(l)*q(2)-(10*pl**5*q 
(l)*q(2)))) 

binn2(3,6)-TO-(1.0/3.0*pl**2*ak*ha*(4*pl*q(6)*q(7)**2+8*pl**2*q(6)**2*q 

(6)*q(7)+26*pl**2*q(6)*q(7)+4*pl*q(6)*q(5)*q(7)+4*pl**2*q(6)**2*q(4)*q(7 

)+3*ek*q(4)*q(7)+24*pl**2*q(4)*q(7)-(4*pl**3*q(6)**2*q(l)*q(7))+3*pl*ak* 

q(l)*q(7)-(2*pl**3*q(l)*q(7))+10*pl**2*q(5)*q(6)-(pl**2*ak*q(3)*q(6)) 

-(16*pl**4*q(3)*q(6))+pl*ak*q(2)*q(6)+3*ak*q(4)*q(5)+8*pl**2*q(4)*q(5) 

+3*pl*ek*q(l)*q(5)-(2*pl**3*q(l)*q(5>)-(pl**2*ak*q(3)*q(4))-(8*pl**4*q( 

3) *q(4))+pl*ak*q(2)*q(4)-(8*pl**3*q(2)*q{4n+8*pl**5*q(l)*q(3)-(8*pl** 
4*q(l) *q(2) ) ) ) -(2 . 0/3 . 0*pl**4*ak**2*e j* (2*q(6) **2*q(6) *q(7) +14*q( 

6) *q(7)+2*q(6)**2*q(4)*q(7)+15*q(4)*q(7)+pl*q(l)*q(7)+10*q(5)*q(6)-( 
4*pl**2*q(3)*q(6))+ll*q(4)*q(5)+pl*q(l)*q(5)-(4*pl**2*q(3)*q(4))))-( 
8.0/3.0*pl**4*ak**3*al*(q(6)+q(4))*(q(7)+q(5))) 

Tl—  (4 . 0/.  . 0*pl**2*ek**3*al*  (3*  (q(7)  +q(5)  )  **2+pl**2*  (q(6)  +q(4) )  ** 

2) ) - (1 . 0/3 . 0*pl*ak*ha* (36*pl*q(6) **2*q(7) **2+39*pl*q(7) **2+8*pl**2* 
q(6)*q(6)*q(7)+8*pl*q(6)**4*q(5)*q(7)+32*pl*q(6)**2*q(5)*q(7)+26*pl*q(5)*q 
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•  (7)-(7*pl*«k*q(3)*q(7))-(48*pl**3»q<3)*<|(7))-(8*pl**2*q«)**2*q(2)*q(7) 

.  )+7*«k*q(2»*q(7>-(4*pl**2*q<2)*q<7))+4*pl**3*q(S)**2*q(6)*‘2+13*pl**3*q 

.  (6) *»2+4*pl**2*q(6) *q<5) *q(6) ♦4*pl**3*q<6) **2*q(4) *q(S) +3*pl*«k*q(4) *q(6) 

.  +24*pl**3*q(4) *q(6) - (4*pX**4*q(6)**2*q(l) *q(6) >  +3*pl‘*2*«k*q(l) *q<6) -<2 
.  *pl**4*q(l)*q(6))-(8»pl**3*q(6)**2*q(3)*q<5»)-(7*pl*ek*q(3)*q(5))-<24*pl 
.  **3*q(3)*q(5))+7*«k*q(2)*q(5)-(2*pl»»2*q(2)*q<5))+3*pl*«k*q<4)**2+8*pl 
.  **3*m4>**2-(4*pl*»4*q(6)**2*q(l)*q(4))+3*pl**2*«k*q<l)*q(4)-(8*pl»*4»q 

■  <l)*q<4))+24*pl**4*q(2)*q<3)-(ll»pl**3*q(2)*»2)-(3*pl**5*q(l)**2))) 
T0-24*pl*q<6)**2*q(7)**2+15*pl*q(7)**2+4»*k*q(6)*q(6)*q(7)+12*pl**2»q(6)*q(6 

•  ) *q(7) -(10*pl*«k*q<6) **2»q(3) *q(7) ) -(10»pl*«k*q(3) *q(7) ) -(32*pl**3*q(3) * 
q(7))+10*«k*q(6)**2*q(2)*q(7)-(8*pl**2»q(6)*»2*q(2)*q(7))+10*«k*q(2)*q(7 

.  ) +2*pl**2*q(2) *q(7) +2*pl**3*q(6) **2»q(6) **2+5»pl**3*q(6) *»2+2*«k*q(6) *q(5 

•  )  *q(6)  +2*pl**k*q(6)  *»2*q(4)  *q(6)  -t'4*pl*ak«q(4)  *q(6)  -fl2*pl**3*q(4)  *q(6)  -(6 

.  *pl**3*q(6)  *q(2)  *q(6) )  +2»pl**2*«k*q(6)  ‘‘a^qd)  *q(6)  “  (4*pl**4*q(6)  **2»q(l)  *q 
.  (6) )+4*pl**2**k*q(l)*q(6)+2*pl**4*q(l)*q(6)-(5*pl*«k*q(6)**2*q<3)*q(5>)- 
.  (5*pl*«k*q(3)*q(5)  )-l-5*ak*q(6)**2*q(2)*q(S)>S*ttk*q(2)*q(5)-t'2*pl**k*q(6)**2*q 
.  (4)**2+5*pl*«k*q(4)*»2+2*pl**2*«k*q(6)»»2*q(l)*q(4)+6*pl**2**k*q(l)»q(4)- 
.  (12*pl**4*q<l)*q(4))+9»pl**3*«k*q<3)**2-(13*pl**2*«k*q(2)*q(3))+32*pl** 

.  4*q(2) *q(3)-(4*pl**3*q(6)**2*q(2)*»2)+4*pl*ek*q(2)**2-(17*pl**3*q(2)**2 
.  ) ^2*pl**5*q(6)**2»q(l)•*2 

Tl-Tl-(1.0/3.0*pl*f**(T0+pl**3*«k*q(l)**2'(7*pl**5*q(l)**2)) )-(2.0 
.  /3 . 0*pl»»2*«k**2»«j* (12»q(6) **2*q(7)**2+21*q(7) **2+20*q(6) **2*q(5) * 

.  q(7)+28*q(5)*q(7)-(16*pl»*2*q(3)*q<7))+2»pl*q(2)*q(7)+pl**2*q(6)**2*q( 

.  6) **2+7*pl**2*q(b) **2+2*pl**2*q(6) **2*q(4) *q<6) +15*pl**2*q(4) *q(6) +pl** 

•  3*i(l)*q(6)+6*q(6)**2*q(5)**2+7*q(5)**2-(16*pl**2»q(3)*q(5))+2*pl*q(2 

■  ) *q(5) +pl**2*q(6) »*2*q(4) **2+8*pl**2*q(4) **2+pl**3*q(l) *q(4) ) ) 
bmn2  (3,7) -Tl- (1.0/3. 0*pl*da*(6*q(6)  **3*q<6)*q(7) -t-6*q(6)  *q(6)*q(7)- 

.  (6*pl*q(6)**4*q(3)*q(7))-(14*pl*q(6)**2*q(3)*q(7))-(7*pl*q(3)*q(7))+6*q(6) 

.  **4*q(2)*q(7)+14*q(6)**2*q(2)*q(7)+7*q(2)*q(7)+3*pl»q(6)**2*q(4)*q(6)+ 

.  3*pl*q(4)*q(6)-(7*pl**2*q(6)*q(3)»q(6))+4*pl*q(6)»q(2)*q(6)+3*pl**2*q(6)»*2 
.  *q(l)*q<6)+3*pl**2*q(l)*q(6)+3*pl*q(6)**2*q(4)**2+4*pl*q(4)**2+3*pl**2* 

.  q(6)**2*q(l)*q(4)+5*pl*»2*q(l)*q(4)+9*pl**3*q(6)**2*q(3)**2+12*pl**3*q(3 
.  )**2-(13*pl**2*q(6)**2*q(2)*q(3))-(17*pl**2*q(2)*q(3))+4*pl*q(6)»*2*q(2) 

.  **2+5*pl*q(2)**2+pl**3*q(l)**2) ) 

T0-2*pl**4*ek**4*te*( (q(7)+q(5) )**2+3*pl**2*(q(6)+q(4))**2)+2.0/ 

.  3 . 0*pl**2**k**2*el» (•k*q(6) **2*q(7) **2+5*«k*q(7) **2+2*pl**2*q(7) **2+ 

.  ek»q(6) **2*q(5) *q(7) +9*ek*q(5) *q(7) -(4*pl**2*«k*q(3) *q(7) ) +3*pl**k*q(2) *q 
.  (7)-(4*pl**3*q(2)*q(7))+15*pl**2*«k*q(6)**2+8*pl**4*q(6)**2+39*pl**2*ek 
.  *q<4) *q(6) +9*pl**3*«k*q(l) »q(6) - (16*pl**5*q(l) *q(6) ) +4*«k*q(5) **2- (4* 

.  pl**2*«k*q(3)*q(5))+3*pl*«k*q(2)*q<5)+24*pl**2*«k*q(4)**2+9*pl'»»3**k*q(l) 

.  *q(4) +2»pl**4*q(2) **2+8*pl**6*q(l) **2) 

T0-T0+f«* (ek*q(6) **2*q(7) *»2+«k*q(7) **2+4*pl**2*q(7) **2+4*pl*«k*q(6) *q( 

.  6)*q(7)+«k*q(6)*»2*q(5)*q(7)+ek*q(5)*q(7)-(4*pl**2*ek*q(6)**2*q(3)*q(7))- 
.  (10*pl**2*ek*q(3)*q(7) )+4*pl*«k*q(6)**2*q(2)*q(7)+9*pl*®k*q(2)*q(7)-(8*pl 
.  **3*q(2) *q(7) ) +5*pl»*2*ek»q(6) **2+16*pl**4*q(6) **2+33*pl**2*®k*q(4) *q( 

.  6)+23*pl**3*ek*q(l)*q(6)-(32*pl**5*q(l)»q(6))-(6*pl**2*ek*q(?>  ■<q(5))+5 
.  *pl*ek*q(2)*q(5)+36*pl**2*ak*q(4)**2+39*pl**3*ok*q(l)*q(4)+6*pl**4»ok*q(3 
.  )**2-(8*pl**3*«k*q(2) *q(3) ) +2*pl**2*ek*q(2) *»2+4*pl**4*q(2) *»2+8*pl**4* 

.  ek*q(l)**2+16*pl**6*q(l)**2)/3.0 

T0-T0+«k*he* (16*pl**2*q(6) **2*q(7) **2+ek*q(7) **2+36*pl**2*q(7) **2+16 
.  *pl**3*q(6)*q(6)*q(7)+16*pl**2*q(6)**2*q(5)*q(7)+2*ok*q(5)*q(7)+16*pl**2* 

■  q(5)*q(7)-(12*pl**2*ek*q(3)*q(7))-(32*pl**4*q(3)*q(7))+16*pl**3*q(6)**2 
.  *q(2)*q(7)+12*pl*ek*q(2)*q(7)-(24*pl**3*q(2)*q(7> )+7*pl**2*ek*q(6)**2+ 

.  100*pl**4*q(6)**2+42*pl**2*ek*q(4)*q(6)+144*pl**4*q(4)*q(6)+28*pl**3*ok 
.  *q(l) *q(6) - (56*pl**5*q(l) *q(6) ) +ek*q(5) **2-(12*pl**2*ok*q(3) *q(5) ) +12 
.  *pl*ok*q(2)*q(5)-(16*pl**3*q(2)*q(5))+42*pl**2*ok*q(4)**2+42*pl**3*ok*q( 

.  l)*q(4)-(144*pl**5*q(l)*q(4) )+pl**4*«k*q(3)**2-(2*pl**3*ak*q(2)*q(3) )+ 

.  32*pl**5*q(2)*q(3)+pl**2*ok*q(2)**2-(12*pl**4*q(2)**2)+7*pl**4*ok*q(l) 

.  **2-(44*pl**6*q(l)**2))/6.0 

T0=T0+pl**2*ak**2*oj* (14*q(6) **2*q(7) **2+25*q(7) **2+6*pl*q(6) *q(6) *q( 

.  7)+20*q(6)**2*q(5)*q(7)+28*q(5)*q(7)-(4*pl**2*q(6)**2*q(3)*q(7))-(32*pl 
.  **2*q(3)*q(7))+6*pl*q(6)**2*q(2)*q(7)+10*pl*q(2)*q(7)+76*pl**2*q(6)**2 
.  +180*pl**2*q(4)*q(6)+28*pl**3*q(l)*q(6)+4*q(5)**2-(24*pl**2*q(3)  q(5 
.  ) )+4*pl*q(2)*q(5)+96*pl**2*q(4)**2+12*pl**3*q(l)*q(4)+4*pl**4*q(3)**2 
.  - (3*pl**2*q(2) **2) - (8*pl**4*q(l) **2) ) /3.0+da* (2*q(6) **2*q(7) **2+ 

.  q(7)**2+14*pl*q(6)*q(6)*q(7)-(12*pl**2*q(6)**2*q(3)*q(7))-(16*pl**2*q(3) 

•  *q(7) >+14*pl*q(6)**2*q(2)*q(7)+14*pl*q(2)*q(7)+7*pl**2*q(6)**2+48*pl**2 

■  *q(4) *q(6) +34*pl**3*q(l) *q(6) +36*pl**2*q(4) **2+24*pl**3*q(l) *q(4) +12 

.  *pl**4*q(3)**2-(8*pl**3*q(2)*q(3))-(3*pl**2*q(2)**2)-(5*pl**4*q(l)**2 
.  ))/6.0 

bmn2 (4, 4)=T0+pl**2*ak**3*ra* (3*ak*q(7) **2+16*pl**2*q(7) **2+16*pl**2 
.  *q(6)**2*q(5)*q(7)+6*ak*q(5)*q(7)+16*pl**2*q(5)*q(7)-(16*pl**3*q(2)*q( 
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7) ) +9*pl**2*«k*q(6) **2+48*pl**4*q(6>  »*2+18*pl**2*«k*q(4) *q(6)+48*pl»*4* 
q(4)*q(6)-(48*pl**5*q(l)*q(6))+3*ak*q<5)**2-(16*pl**3*q(2)*q(5))+9*pl 
**2*ak*q(4) **2-<48*pl**5*q(l) *q(4) ) ) /6.0+aa* (3*q(4) **2+6*pl*q(l) 
*q(4)+pl**2*q(3)**2-(2*pl*q(2)*q(3))+q(2)**2+3*pl**2*q(l)*»2)/2.0 

T0-2.0/3.0*pl**2*«k**2*ol*(«k*q(6)**2*q(6)*q(7)+6*pl**2*q(6)**2*q(6)*q 
(7)+6*«k*q<6)*q(7)+6*pl**2»q(6)*q(7)+ak*q(6)**2*q(4)*q(7)+9*®k*q(4)*q(7 
)-<6*pl**3*q(6)**2*q(l)*q(7) )+3*pl*ek*q(l)*q<7)-(6*pl**3*q(l)*q(7))+5*ak 
*q(5) *q{6) - (4*pl**2*«k*q(3) *q(6) )+3*pl*ek*q(2) •q(6) -(6*pl**3*q(2) *q(6) 
)+8*ek*q(4)*q(5)+3*pl*ek*q(l)*q(5>-<4*pl**2**k*q(3)*q(4) )+3*pl*ak»q(2)*q 
(4)+6»pl**4*q<l)*q(2) )+pl**2*ek**3*ro*(8*pl**2*q(6)**2*q(6)*q(7)+3* 

•k*q(6) *q(7) +16*pl**2*q(6) *q(7) +8*pl»*2*q(6) **2*q(4) *q(7) +3*ak*q(4) *q(7 
)+8*pl**2*q(4)*q(7)-(8*pl**3*q(l)»q(7))+3*ek*q(5)*q(6)+8*pl**2*q(5)*q 
(6)-<8*pl**3*q(2)*q(6))+3*ek*q(4)*q(5)-(8*pl**3*q(l)*q(5))-(3*pl*»3*q 
(2)*q<4)))/3.0 

T0-T0+ok*he*(8*pl**2*q(6)*»2*q(6)*q(7)+8»pl**2*q(6)*q(7)+8*pl**2*q(6) 
**2*q(4)*q(7)+ek*q(4)*q<7)+8*pl**2*q(4)*q(7)+pl*ak*q(l)*q(7)-(3*pl**2* 
ek*q(3)*q(6))-(8*pl**4*q(3)*q(6>)+3»pl*ek*q<2)*q(6)+ak»q(4)*q(5)+pl**k*q 

(1)  *q(5) -(6*pl**2*«k*q(3) *q(4) )+6»pl»ak*q(2) *q(4) - (8*pl**3*q(2) *q<4) ) - 
(3*pl**3*ak*q(l)*q<3))+8*pl**5*q(l)*q(3)+3*pl»*2*ak*q(l)*q(2)-(8*pl**4* 
q(l)*q(2)))/3.0+pl-*2*ak**2*aj*(13»q(6)**2*q(6>*q(7)+21*q(6)*q(7) 
+20*q(6)**2*q(4)*q(7)+28*q(4)*q(7)+7*pl*q(6)**2*q(l)»q(7)+7*pl*q(l)*q(7 
)+8*q<5)*q(6)-(22*pl**2*q<3)*q(6))+9*pl*q(2)*q(6>+8»q(4)*q(5)-(24*pl 
**2*q(3)*q(4) )+4*pl*q(2)*q(4)-<2»pl**3*q<l>*q(3))-(5*pl**2*q(l)*q(2> 

))/3.0 

bmn2  <4, 5) -TO+ak*£a* (q(6) **2*q<4) *q(7)+q(4) *q<7) +pl*q(6) *»2*q(l) *q(7) 
+pl*q(l)»q(7)-(2*pl**2*q(3)*q(6))+2*pl*q(2)*q(6)-(6*pl**2*q(3)*q(4) )+ 
5*pl*q(2)*q(4)-(4*pl**3*q<l)*q(3))+3*pl**2*q(l)*q(2))/3.0+4*pl**4*ak** 
4*te*(q(6)+q(4))*(q(7)+q(5)) 

T0-2*pl**4*ek**4*te*  < (q(7) +q(5) ) **2+3*pl**2* (q(6) +q(4) ) **2) +pl**2* 
ek*aj* (ll*ek*q(6) »*2*q(7) **2+18*ak*q(7) **2+4*pl**2*q(7) **2+12*pl*ak* 
q(6) *q(6) *q(7) +13*ak*q(6) **2*q<5) *q(7) +21»ak*q(5) *q<7) +6*pl*ek*q(6>  *q(4) * 
7)-(4*pl**2*ak*q(6)**2*q(3)*q<7))-(30*pl**2»ek*q(3)*q(7) )+6*pl*ak*q(6)**2  , 

(2)  *q(7) +15*pl*ek*q(2) *q(7) - (8*pl**3*q<2) *q(7) >  +54*pl**2*ek*q(6) *»2+12 
*pl**4*q(6)**2+152*pl**2*ak*q(4)*q(6)+44*pl**3*ek*q(l)*q<6)-(24*pl**5*q 
(1) *q(6) ) +4*ak*q(5) **2- (22*pl**2*ak*q(3)*q(5) ) +9*pl*ek*q(2) *q(5) +90*pl 
**2*ek*q(4)**2+28*pl**3*ek*q(l)*q(4)+4*pl*»4*ak*q(3)**2-(3»pl**2*ak*q(2) 
**2)+4*pl**4*q(2)**2-(8*pl**4*ak*q(l)**2)+12*pl**6*q(l)**2>/3.0 

T0=T0+pl**2*ek**2*al*<2*ak*q<6)**2*q(7)**2+7*ek*q<7)**2+16*pl**2*q(7) 
**2+2*ek*q(6)**2*q(5)*q(7)+12*pl**2*q(6)»*2*q<5)*q(7)+X2*ek*q(5)»q(7)+12 
♦pl**2*q(5)*q(7)-(8*pl**2*ek*q(3)*q(7))+6*pl*ak*q(2)*q(7)-(20*pl**3*q(2 
) *q(7) ) +21*pl**2*ak*q<6) **2+48*pl**4»q(6) **2+60*pl**2*ek*q(4) *q(6) +32* 
pl**4*q(4)*q(6)+18*pl»*3*ek*q(l)*q(6)-(64*pl**5*q<l)*q(6) )+5*ek*q(5)** 
2-(8*pl**2*ek*q(3)*q(5) )+6*pl*ek*q(2)*q(5)-(12*pl**3*q(2)*q(5))+39*pl** 
2*ak*q(4)*»2+18*pl**3»ok*q(l)*q(4)-(32*pl**5*q(l)*q(4) )+4*pl**4*q(2)** 
2+16*pl**6»q(l)**2)/3.0 

IO»TO+pl*ek*he*  <20*pl*q(6) **2*q<7) **2+28*pl*q(7) **2+40*pl**2*q(6) *q(6) * 
q(7)+16*pl*q(6)**2*q(5)*q(7)+16*pl*q(5)*q(7)+16*pl**2*q(6)*q(4)*q(7)-<8* 
pl**3*q(6) **2*q(3) *q<7) ) - (6*pl*ek*q(3>  *q<7) ) - <48*pl**3*q(3) *q(7) ) +20*pl 
**2*q(6)**2*q<2)*q<7)+6*ek*q(2)*q(7)+8*pl**2*q(2)*q(7>-(4*pl**3*q(6)*q(l 
)*q(7) )+84*pl**3*q(6)**2+14*pl*ok*q(4)*q(6)+200*pl**3*q(4)*q(6)+14*pl 
**2*ek*q(l)*q(6)+32*pl**4*q(l)*q(6)-(6*pl*ak*q(3)*q(5))-<16*pl**3*q(3) 

*q(5) )+6*ek*q(2)*q(5)+21*pl*ek*q(4)**2+72*pl**3*q(4)**2+28*pl**2*ok*q(l 
)*q(4)-(56*pl**4*q<l)*q(4) )+pl**3*ok*q(3)**2+8*pl**5*q(3)**2-(2*pl**2* 
ek*q(2)*q<3) )+16*pl**4*q<2)*q<3)+pl*ek*q<2>**2-(12*pl**3*q<2)**2)+7*pl 
**3*ok*q(l)**2-(44*pl**5*q(l)**2))/6.0 

TO=TO+pl*fo» (12*pl*q(6) **2*q(7) **2+10*pl*q(7) **2+8*ok*q(6) *q(6) *q(7) + 
24*pl**2*q(6)*q(6)*q(7)+8*ek*q<6)*q(4)*q(7)-(4*pl*ek*q(6)**2*q(3)*q(7))-(8* 
pl*ek*q(3) *q(7) ) - (24*pl**3*q(3) *q(7) ) +4*ek*q(6>  **2*q(2) *q(7>  +12*pl**2*q(6) 
**2*q(2) *q<7) +8*ek*q(2) *q<7) +4*pl**2*q(2) *q(7) +4*pl*ek*q(6) *q(l) *q(7) - ( 
12*pl**3*q(6) *q(l) *q(7) ) +30*pl**3*q(6) **2+20*pl*ok*q(4) *q(6) +64*pl**3*q( 
4)*q(6)+20*pl**2*ok*q(l)*q(6)+4*pl**4*q(l)*q(6)-(4*pl*ok*q(3)*q(5))+4* 
ek*q(2)*q(5)+33*pl*ok*q(4)**2+46*pl**2*ok*q(l)*q(4)-(64*pl**4*q(l)*q(4) 
)+7*pl**3*ek*q(3)**2-(10*pl**2*ek*q(2)*q(3))+24*pl**4*q(2)*q(3)+3*pl*ek* 
q(2) **2- (14*pl**3*q<2) **2) +13*-1 **3*ek*q(l) **2- (34*pl**5*q(l) **2) ) / 

6.0 

bmn2 (4, 6)=T0+pl**2*ek**3*ro* (3*ok*q(7) **2+24*pl**2*q(7) **2+16*pl**2 
*q(6) **2*q(5) *q(7) +6*ok*q(5) *q(7)+32*pl**2*q(5) *q(7) -(16*pl**3*q(2) *q( 

7) ) +9*pl**2*ek*q(6) **2+72*pl**4*q(6) **2+18*pl**2*ok*q(4) *q(6) +96*pl**4* 
q(4)*q(6)-(48*pl**5*q(l)*q(6) )+3*ek*q(5)**2+8*pl**2*q(5)**2-(16*pl**3 
*q(2) *q(5) ) +9*pl**2*ek*q(4) **2+24*pl**4*q(4 ) **2- (48*pl**5*q(l) *q(4) ) ) 
/6.0+pl*de*(6*q(6)*q(6)*q(7)+7*q(€)*q(4)*q(7)-(3*pl*q<6)**2*q(3)*q(7 
))-(3*pl*q(3)*q(7))+3*q(6)**2*q(2)*q(7)+3*q(2)*q(7)+4*pl*q<6)*q(l)*q(7) 


C-39 


XT* 


.  +7*pl*q(4) *q<6) +7»pl**2*q(l) *q(6)+12*pl*q<4) **2+17*pl**2*q(l) *q(4) +4* 

.  pl**3*q(3)**2-(5»pl**2*q(2)*q(3))+pl*q<2)**2+5*pl**3*q(l)**2)/3.0 
T0-pl**2*«k*«j*  (22*«k*q(6)  **2*q(6»  *q(7)'f36*«k*q(fi)  *q(7)  +8*pl**2*q(6)  * 

.  q(7)+28*«k*q<6)»*2*q<4)*q(7)+50*«k*q(4)*q(7)+6*pl*«k*q(6)**2*q(l)*q(7)+14 
.  *pl*«k*q(l)  *q(7)  -  (8*pl*»3*q(l)  *q(7)  )-»^6*pl*ak*q(6)  *q(6)  **2'fl3*«k*q(6)  **2*q(5 
.  >*q<6)+21*«k*q(5)*q(6)+6*pl*«k*q(«)*q(4)*q(6)-(4*pl**2*«k*q(6)**2*q(3)*q(6 
.  ))-(30*pl**2**k*q(3)*q(6))+6*pl*«k*q(6)**2*q(2)*q(6)+15*pl*«k*q(2)*q(6)-( 

.  8*pl**3*q(2)*q(6))+20*«k*q<fi>**2*q<4)*q<5)+28*ek*q(4)*q(5>+7*pl*ek*q(6)**2 
.  *q<l)*q(5)+7*pl*ak*q(l)*q(5)-(4*pl**2»«k*q(6)**2*q(3)*q(4))-(32*pl**2*ak* 

.  q<3)*q(4))+6*pl*ak*q(6)**2*q(2»*q<4)+10*pl*ok»q(2)*q(4)-(2*pl**3*ak*q(l)* 

.  q(3))-(5*pl**2*«k*q(l)*q(2))+8*pl**4*q(l)*q(2))/3.0 
TO-TO+2 . 0/3 . 0*pl**2*ak**2**l» (2*«k*q(6) **2*q<6) *q (7 ) +7*«k*q (6) *q (7 ) + 

.  16*pl**2*q(6)*q(7)+2*«k*q<6)**2*q<4)*q(7)+10*ek*q<4)*q(7)+4*pl**2*q(4)* 

.  q(7)+3*pl*ek*q(l)*q(7)-(12*pl»*3*q(l)*q(7))+ak*q(6)**2*q(5)*q(C)+6*pl**2 
.  •q<6) **2*q(5) *q(6) +6*ak*q(5) *q(6)+6*pl**2*q(5) *q(6) - (4*pl**2*ak*q(3) *q( 

.  6))+3*pl*ak*q(2)*q(6)-(10*pl**3*q(2)*q(6))+ak*q<6)**2*q(4)*q(5)+9*ak*q(4 
.  ) *q(5) -(6*pl**3*q(6) **2»q(l) »q(5) )+3*pl*ak*q(l) *q(5) -(6*pl**3*q<l) *q(5) 

.  )-<4*pl**2*ek*q(3)*q<4))+3*pl*ak*q(2)*q(4)-(4*pl**3*q(2)*q(4))+6*pl**4* 

.  q(l)*q<2)) 

Tl-fa*(12*pl**2*q(6)**2*q<6)*q(7)+10*pl**2*q(6)*q(7)+2*ak*q(6)**2*q(4 
.  )*q(7)+2*ak*q(4)*q(7)+8*pl**2*q(4>*q(7)+2*pl*ek*q(6)**2*q(l)*q(7)-(12*pl 
.  **3*q<6)**2*q(l)*q(7))+2*pl*ak*q(l)*q<7)-(2*pl**3*q(l)*q(7))+2»pl*ak*q(6)* 

.  q(6)**2-t'6*pl**3*q(6)*q(6)**2+4*pl*ak*q(6)*q(4)*q(6)-(2*pl**2*ak*q(6)**2*q(3) 
.  *q(6))-(4*pl**2*ak*q(3)*q(6))-(12*pl**4*q(3>*q(6))+2*pl*ak*q(6)**2*q(2)* 

.  q<6)+6*pl**3*q(6)**2*q(2)*q(6)+4*pl*ak*q(2)*q(6)+2*pl**3»q(2)*q(6)+2*pl 
.  **2*ak*q(6)*q(l)*q<6)-(6*pl**4*q(6)*q(l)*q(6))+ak*q(6)**2*q(4)*q(5)+ak*q(4) 

.  *q(5)-fpl*ak*q(6)**2*q(l)*q(S)+pl*ak*q(l)*q(5)-(4*pl**2*ak*q(e)**2*q(3)*q<4) 

.  )-(10*pl**2*ak*q(3)*q(4) )+4*pl*ak*q(6)**2*q(2)*q(4)+9*pl*ak*q(2)*q(4)-(8* 

.  pl**3*q<2)*q(4))-(2*pl**3*ak*q(6)**2*q(l)*q(3))-(6*pl**3*ak*q(l)*q(3))+ 

.  12*pl**5*q(l)*q(3)+2*pl**2*ak*q(6)*»2*q(l>*q(2)-(6*pl**4*q(6)**2*q(l)»q(2 
.  ) ) +5*pl**2*ak*q(l) *q<2) - (10*pl**4*q(l) *q(2) ) ) 

T0-T0+ek*ha*(20*pl**2*q(6)**2*q(6)*q(7)+28*pl**2*q(6)*q(7)+16*pl**2* 

.  q(6) **2*q(4) *q(7) +ak*q(4) *q(7) +36*pl**2*q(4) *q(7) - (4*pl**3*q(6) **2*q(l) * 

•  <I(7)  )+pl*ek*q(l)*q(7)+8*pl**3*q(l)*q(7)+10*pl**3*q(6)*q(6)**2+8*pl**2*q(6) 

.  **2*q(5) *q(6) +8»pl**2*q(5) *q<6)+8*pl**3*q(6) •q(4) *q(6) - (4*pl**4*q(6) **2* 

•  q(3) *q(6) ) -(3*pl**2*ek*q(3) *q(6) ) -(24*pl**4*q(3) *q(6) ) +10*pl**3*q(6) **2 
.  *q<2)*q(6)+3*pl*ek*q(2)*q<6)+4*pl**3*q(2)*q(6)-(2*pl**4*q(6)*q(l)*q(6)) 

.  +8*pl**2*q(6)**2*q(4)*q(5)+ek*q<4)*q(5>+8*pl**2*q(4)*q(5)+pl*ak*q(l)*q(5 
.  )-(6*pl**2*ak*q(3)*q<4))-(16*pl**4*q(3)*q(4))+e*pl**3*q<6)**2*q(2)»q(4) 

.  +6*pl*ak»q(2) *q(4) -(12*pl**3*q(2) *q<4) )+4*pl**5*q(6) **2*q(l) *q(3) -(3*pl 
.  **3*ak*q(l)*q<3))+8»pl**5*q(l)*q<3)-<2*pl**4*q(6)**2*q(l)*q(2) )+3*pl**2 
.  *ak*q<l)*q(2)-(16*pl**4*q<l)*q(2)>)/3.0+Tl/3.0 
biiin2  <4,7)-T0+pl**2*ak**3*re*(3*ak*q{6)*q(7)+24*pl**2*q(6)*q(7)+3*ak 
■  *q<4)*q<7)+16*pl**2*q(4)*q(7)-(8*pl»*3*q(l)*q(7) )+8*pl**2*q(6)**2*q(5) 

.  *q(6)+3*ek*q(5)*q(6)+16*pl**2*q(5)*q(6)-(8*pl**3*q(2)*q(6) )+8*pl*»2» 

.  q(6)**2*q(4)*q(5)+3*ek*q(4)*q(5)+8*pl**2*q(4)*q(5)-(8*pl**3*q(l)*q(5> ) 

.  -(8*pl**3*q(2)*q(4)))/3.0+do*(2*q<6>**2*q(4)*q(7)+q(4)*q(7)+2*pl 
.  *q(6)**2*q(l)*q(7)+pl*q(l)*q(7)+3*pl*q(6)*q(6)**2+7*pl*q(6)*q(4)*q(6)-(3*pl 
.  **2*q(6)**2*q(3)*q(6))-(3*pl**2*q(3)*q<6))+3*pl*q(6)**2*q(2)*q(6)+3*pl*q 
.  (2)*q(6)+4*pl**2*q(6)*q(l)*q<6)-(6*pl**2*q(6)**2*q(3)*q(4))-(8*pl**2*q(3 
.  )*q(4) )+7*pl*q(6)**2*q(2)*q(4)+7*pl*q(2)*q(4)-(3*ol**3*q(6)**2*q(l)*q(3) 

.  )-(5*pl**3*q(l)*q(3) )+4*pl**2*q(6)**2*q(l)*q(2)+4*pl**2*q(l)*q(2) )/3.0 
.  +4*pl**4*ek**4*te*<q(6)+q(4) >*(q(7)+q(5)) 

T0=2*pl**2*ek**4*te*<3*(q(7)+q<5))**2+pl**2*(q(6)+q(4) )**2)+2.0/ 

.  3 . 0*ok**2*el*  <6*pl**2*q(6) **4*q(7) **2+3*ek*q(6) **2*q(7) **2+12*pl**2* 

.  q(6) **2*q(7) **2+3*ek*q(7) **2+8*pl**2*q(7) **2+3*ok*q(6) **2*q(5) *q(7) +3*ak* 

•  q(5)*q<7)-(12*pl**2*ek*q(3)*q(7))-<12*pl**3*q(6)**2*q<2)*q(7) )+9*pl*ok*q 
.  (2)*q<7)-(16*pl**3*q(2)*q<7) )+pl**2*ok*q(6)**2+2*pl**4»q(6)**2+5*pl**2 

.  *ek*q(4) *q(6) +3*pl**3*ok*q<l) *q(6) -(4*pl**5*q(l) *q(6) ) -(12*pl**2*ek*q(3 
.  )*q(5))+9*pl*ek*q(2)*q(5)+4*pl**2*ok*q(4)**2+3*pl**3*ek*q(l)*q(4)+8*pl** 

.  4*q(2)**2+2*pl**6*q(l)**2) 

bmn2  (5,  5)»-T0+ek**2*aj*  (3*q(6)  **4*q(7)  **2+8*q(6)  **2*q(7)  **2+4*q(7)  ** 

.  2+6*pl*q(6)*q(6)*q(7)-(24*pl**2*q(6)**2*q(3)*q(7)  )-(28*pl**2*q(3)*q(7) )  + 

.  20*pl*q(6) **2*q(2) *q(7) +20*pl*q(2) *q(7) +pl**2*q(6) **2+8*pl**2*q(4) *q(6) 

.  +6*pl**3*q(l) *q(6) +4*pl**2*q(4) **2+16*pl**4*q(3) **2- (4*pl**3*q(2>  *q(3 
.  ) ) -(8*pl**2*q(2) **2) - (3*pl**4*q(l) **2) )/3.0+ek**3*re* (32*pl**2*q(6) 

.  **2*q(7) **2+9*ek*q(7) **2+48*pl**2*q(7) **2+48*pl**2*q(6>  **2*q(5) *q(7)  + 

.  18*ek*q(5)*q(7)+48*pl**2*q(5)*q(7)-<48*pl**3*q(2)*q(7) )+3*pl**2*ek*q(6 
.  )**2+16*pl**4*q<6)**2+6*pl**2*ok*q<4)*q(6)+16*pl**4*q(4)*q(6)-(16*pl** 

.  5*q(l)*q(6))+9*ek*q(5)**2-(48*pl*»3*q(2)*q(5))+3*pl**2*ek*q(4)**2-(16 

•  *pl**5*q<l)*q(4> ) )/6.0+ek**2*ho*(q<4)**2+2*pl*q(l)*q(4)+7*pl**2*q 
.  (3)**2-(14*pl*q(2)*q(3> )+7*q(2)**2+pl**2*q(l)**2)/6.0 
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X0-pl*«k*h**(6*q(6)**3*q(7)**2+6*q<6)*«I<7)**2+2*pl*q(6)**2*q(6)*q(7)+2* 
pl*ql6) *q(7) +8*pl*q(6) **2*q(4) *q(7) +8*pl*q(4) *q(7) - (4*pl**2*q(6) *q(3) *q<7 

))-(2*pl*q(6)*q(2)*q(7))+6*pl**2*q(6)**2*q<l)*q(7)+6*pl**2*q(l)*q<7)-(10 

*pl**3*q(3)*q(6))+8*pl**2*q(2)*q<6)-(3*pl*«k*q(3)*q(4))-<8*pl**3*q(3»* 

q(4))+3**k*q(2)*q(4)-<3*pl**2*«k*q(l)*q<3))+2*pl**4*q(l)*q(3)+3*pl**k*q 

<l)*q(2)-(8*pl**3*q(l)*q(2)))/3.0 

TO-TO+pl*«k*«j* (6*«k*q(6) *q(7) **2+6*pl*«k»q<6) **2*q(6) *q<7) +8*pl**3*q(6) ** 
2»q(6)*q(7)+8*pl*ok*q(6)*q(7)+8*pl**3*q(6>*q(7)+6*ek*q(6>*q(5)*q(7)+13* 
pl*ek*q(6)**2*q(4)*q(7)+21*pl*«k*q{4)*q(7)+7*pl**2*ak*q(S)»*2*q<l)*q<7)-(8* 
pl**4*q(6)**2*q(l)*q<7))+13*pl**2*ak*q(l)»q(7)-(8*pl**4*q(l)*q(7))+2*pl* 
•k*q(5)*q<6)-(20*pl**3*«k*q(3)*q(6))+14*pl**2*ak*q(2)*q(6)-(8*pl**4*q(2 
)*q(6))+8*pl*«k*q<4)*q(5)+6*pl**2*ak*q(l)*q(5)-<22*pl**3*«k*q(3)*q(4))+ 
9*pl**2*,k*q(2)*q(4)-(2*pl**4**k*q<l)*q(3)>-<5*pl**3*ok*q(l)*q(2))+8*pl 
**5*q(l)*q<2))/3.0 

TO-TO+2.0/3.0*pl**2*«k**2*al*(ak*q<6)**2*q(6>*q(7)+12*pl**2*q(6)**2*q( 
6>*q<7)+3*ek*q(6)*q(7)+16*pl**2*q(6)*q(7)+ak*q(6)**2*q(4)*q(7)+6*pl»*2* 
q(6)**2*q(4)*q(7)+6*«k*q(4)*q(7>+6*pl**2*q(4)*q(7) -(6*pl**3*q(6)**2*q(l) 
*q(7))+3*pl*«k*q(l)*q(7»-(10*pl**3*q(l)*q(7))+2*ak*q(5)*q(6)+4*pl**2*q 
(5)*q(6)-(4*pl**2*«k*q(3)*q(6))+3*pl*«k*q(2)*q(6)-(12*pl**3*q(2)*q(6)) 
+5*ek*q(4) *q(5) +3*pl*ak*q(l) *q(5) -(4*pl**3*q(l) *q(5) ) - (4*pl**2*«k*q(3) * 
q(4) )+3*pl*«k*q<2)*q(4)-(6*pl**3*q(2)*q(4))+6*pl**4*q(l)*q(2))+pl**2*«k 
**3*ro*(8*pl**2*q(6)**2*q(6)*q(7)+3*®k»q<6)*q(7)+24*pl**2*q(6)*q(7 
) +8*pl**2*q(6) **2*q(4 ) *q(7) +3*ek*q(4) *q(7) +16*pl**2*q(4) *q(7) - (8*pl**3* 
q(l)*q(7))+3*ek*q(5)*q(6)+16*pl»*2*q(5)*q(6)-(8»pl**3*q(2)*q(6))+3*«k 
*q(4)*q(5)+8*pl**2*q(4)*q<5)-(8*pl**3*q(l)*q(5))-(8*pl**3*q(2)»q(4)) 

)/3.0 

bmn2  <5, 6)-T0- (2 . 0/3 . 0*ek*f«* (pl*q<3) -q(2) ) * (q(6) *q(7) +pl* (q(4)  +pl*q( 

1)  ) ) )+4*pl**4*ek**4*te*(q(6)+q(4) )*<q(7)+q(5) ) 

T0-9*«k*q(6)**4*q(7)**2+24*ek*q(6)**2*q<7>**2+12*pl**2*q(6)**2*q(7)**2+12*ak 

*q(7)**2+12*pl**2*q(7)**2+12*pl*ak*q(6)*q<6)*q(7)+6*ak*q(6)**4*q(5)*q(7)+ 

16*ek*q<6) **2*q(5) *q(7) +8*ak*q(5) *q(7)-(40*pl**2*ak*q(6) **2*q(3) *q(7) ) -( 

56*pl**2*ak*q(3)*q(7))+32*pl*ak*q(6)**2*q(2)*q(7)-(16*pl**3*q(6)**2»q(2)*q 

(7) )+40*pl*ak*q(2)*q(7)-(24*pl**3*q(2)*q<7>)+3*pl**2*ak*q(6)**2*q(6)**2+ 

4*pl**4*q(6) **2*q(6) **2+4*pl**2*ak*q(6) *»2+4*pl**4*q(6) **2+6*pl*ak*q(6) *q(5 

)*q(6)+13*pl**2*ak*q(6)**2*q(4)*q<6)+21*pl**2*ak*q(4)*q(6)+7*pl**3*ak*q(6) 

**2*q<l)*q<6)-(8*pl**5*q(6)**2*q<l)*q(6))+13*pl**3*ak*q(l)*q(6)-(8*pl** 

5*q(l)*q(6))-<24*pl**2*ak*q(6)**2*q<3)*q(5))-(28*pl**2»ak*q(3)*q(5)>+20 

*pl‘ak*q(6)**2*q(2)*q(5)+20*pl*ak*q(2)*q(5)+10*pl**2*ak*q(6)**2*q(4)**2+14* 

pl**2*ak*q(4>**2+7*pl**3*ak*q<6)«*2*q(l)*q(4)+7*pl**3*ak*q<l)*q(4)+16*pl** 

4*ek*q<3)**2 

T0-2*pl**2*ek**4*ta* (3* (q<7) +q(5) ) **2+pl**2* (q(6) +q(4) ) **2)+ak*aj 
*(T0-(4*pl**3*ak*q(2)*q(3) )+4*pl**4*q(6)**2*q{2)**2-(8*pl**2*ak*q(2) 
**2)+12*pl**4*q(2)**2+4*pl**6*q(6)**2*q(l)**2-(3*pl**4*ak*q(l)*»2)+4*pl 
**6*q(l)**2)/3.0 

Tl-9*ek*q(6)**2*q(7)**2+36*pl**2*q<6)**2*q(7)**2+9*ak*q(7)**2+48*pl»*2*q(7 
)**2+24*pl**2*q<6)**4*q(5)*q(7)+12*ak*q(6)**2*q(5)*q(7)+48*pl**2*q(6)**2*q 
(5) *q(7) +12*ek*q(5) *q<7) +32*pl**2*q(5) *q(7) -(24*pl**2*ak*q(3) *q(7) ) -( 
24*pl**3*q(6)**2*q(2)*q(7) )+18*pl*ek*q(2)*q(7)-(64*pl**3*q(2)*q(7) )+pl** 
2*ek*q(6) **2*q(6) **2+12*pl**4*q(6) **2*q(6) **2+3*pl**2*ak*q(6) **2+16*pl**4* 
q(6) **2+2*pl**2*ak*q(6) **2*q(4) *q<6)+12*pl**4*q(6) **2*q(4) *q(6) +12*pl**2* 
ak*q<4)*q(6)+12*pl**4*q{4)*q<6>-(12*pl**5*q(6)**2*q(l)*q(6) )+6*pl**3*ak* 
q(l)*q(6)-(20*pl**5*q<l)*q(6) )+3*ak*q(6)**2*q<5)**2+3*ak*q(5)**2-(24*pl 
**2*ak*q<3)*q(5))-(24*pl**3*q(6)**2*q(2)*q(5))+18*pl*ak*q(2)*q(5)-(32*pl 
**3*q(2)*q(5) )+pl**2*ek*q(6)**2*q(4)**2+9*pl**2*ak*q(4)**2-(12*pl**5*q(6) 
**2*q(l)*q(4) )+6*pl**3*ak*q(l)*q(4)-(12*pl**5*q(l)*q(4) )+16*pl**4*q(2 
)**2 

T0>-T0+ek*ha*  (12*q(6)  **4*q(7)  **2+18*q(6)  **2*q<7)  **2+6*q(7)  **2+24*pl* 
q(6)**3*q(6)*q(7)+24*pl*q(6)*q(6)*q(7)-(16*pl**2*q(6)**4*q(3)*q(7) )-(64*pl 
**2*q(6)**2*q(3)*q(7) )-<52*pl**2*q(3)*q<7))+24*pl*q<6)**4*q(2)*q(7)+56* 
pl*q(6) **2*q<2) *q(7) +40*pl*q(2) *q(7)+2*pl**2*q(6) **2*q(6) **2+2*pl**2*q(6) 
**2+16*pl**2*q(6)**2*q<4)*q(6)+16»pl**2*q<4)*q(6)-(8*pl**3*q(6)*q(3)*q(6 
) ) -(4*pl**2*q(6) »q{2) *q(6) ) +12*pl**3*q(6) **2*q(l) *q(6)+12*pl**3*q(l) *q(6 
)+8*pl**2*q(6)**2*q(4)**2+ak*q<4)**2+8*pl**2*q(4)**2+2*pl*ek*q(l)*q(4)+8 
*pl**4*q(6)**2*q(3)**2+7*pl**2*ek*q(3)**2+24*pl**4*q(3)**2-(14*pl*ek*q(2) 
*q(3) )+4*pl**3*q(2)*q(3)-<10*pl**2*q(6)**2*q(2)**2)+7*ak*q<2)**2-<22*pl 
**2*q(2) **2) - <6*pl**4*q(6) **2*q(l) **2)+pl**2*ek*q(l) **2- (6*pl**4*q(l) ** 

2)  >/6.0+ek**2*ol*(Tl+4*pl**6*q(l)**2)/3.0 

bmn2(5,7)=T0+ek**3*ra*(24*pl**2*q(6)**2*q<7)**2+9*ak*q(7)**2+72*pl** 

2*q<7) **2+64*pl**2*q(6) **2*q<5) *q(7)+18*ek*q(5) *q(7) +96*pl**2*q(5) *q<7 
)-(48*pl**3*q(2)*q<7) )+8*pl**4*q(6)**2*q(6)**2+3*pl**2*ek*q(6)**2+24*pl 
**4*q<6)**2+16*pl**4*q<6)**2*q(4)*q(6)+6*pl**2*ak*q(4)*q(6)+32*pl**4*q< 

4) *q(6) - (16*pl**5*q(l) *q<6) ) +24*pl**2*q(6) **2*q(5>  **2+9*ak*q(5) **2+24* 
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.  pl**2’‘q(5) •*2-(48*pl**3»q(2) *q<5» l+«*pl*M*q<fi) **2*q<4) **2+3*pl**2*«k*q( 

.  4)**2+8*pl*»4*q(4)*'‘2-(16*pl**5*qa)*q(4)>)/«.0-(1.0/6.0**k*£«*{ 

.  4*pl*q<6>*q(3)*q<6)-(4*q(6)*q(2)*q<6))-(q(6)**2*q(4)**2)-q(4)**2-(2*pl*q(6) 

.  **2*q(l)*q(4))-(2*pl*q<l)*q(4))-(5*pl**2*q<S>**2*q(3)**2)-(5*pl**2*q(3 
.  ) **2)+10*pl*q(6) **2*q(2) *q(3)+10*pl*q(2>*q<3) -<5*q(6) **2*q(2) **2) - (5*q< 

.  2) **2) - (pl**2* (q(6) **2+1) *q(l) **2) ) ) 

T0-2*pl**4*«k**4*te*  < (q(7) +q(5) ) **2+3»pl**2* (q(6) +q(4) ) **2) +pl**2* 

.  h**  (12*»)t*q(6)  **2*q(7)  **2+8*«k*q(7)  **2+12*pl**2*q<7)  **2+72*pl**k*q(6)  * 

.  q(6) *q(7)+4**k*q(6) **2*q(5) *q(7)+4*«k*q<5) *q(7) +40*pl*«k*q(6) *q(4) *q<7) - ( 

.  16*pl**2*#k*q<6)**2*q<3)*q<7))-(52*pl**2*«k*q(3)*q(7))+24*pl*«k*q(6)**2*q(2 
.  )*q<7)+40*pl*«k*q(2)*q<7)-(24*pl**3*q(2)*q(7))-(8*pl**2*«k*q(6)*q(l)*q(7 
.  ) )+24*pl**2*«k*q(6)**2+36*pl**4*q(6)**2+168*pl**2*ek*q(4)*q(6)+120*pl** 

.  3*«k*q<l)*q(6)-(72*pl**5*q(l)*q(6))-(20*pl**2**k*q(3)*q(5) >+X6*pl**k*q( 

.  2)*q(5)+7*«k**2*q(4)**2+100*pl**2*«k*q(4)**2+14*pl*«k**2*q(l)*q(4)+32* 

.  pl**3*ek*q(l)*q(4)+pl**2*«k**2*q<3)**2+16*pl**4*«k*q(3)**2-(2*pl*«k**2*q< 

.  2)*q(3))+ek**2*q(2)**2-(12*pl**2*«k*q(2)**2)+12*pl**4*q(2)**2+7*pl**2* 

.  •k**2*q(l)**2-(44*pl**4*«k*q(l)**2)+36*pl**6*q(l)**2)/6.0 

T0-T0+pl**2*«k*oj* (8*ak*q(6) **2*q(7) **2+8*ak*q(7) **2+16*pl**2*q(7) **2 
.  +18*pl*ak*q(6) *q<6) *q<7) +6»ak*q<6) **2*q<5) *q(7)+8*pl**2*q(6) **2*q(5) *q(7) +8 
.  *ek*q(5)*q(7)+8*pl**2*q(5)*q{7)+12*pl*ek*q(6)*q(4)*q(7)-(4*pl**2*ok*q(6)**2 
.  *q(3)*q(7))-(28*pl**2*«k*q(3)*q(7))+6*pl*ak*q(6)**2*q(2)*q(7)+20*pl**k*q( 

.  2)*q<7)-(24*pl**3*q(2)*q(7))+24*pl**2*«k»q(6)**2+48*pl**4*q(6) **2+108 
.  *pl**2*ak*q<4)*q(6)+24*pl**4*q<4)*q(6)+60*pl**3*«k*q(l)*q(6)-(72*pl**5* 

.  q(l)*q(6))+ak*q(5)**2-(20*pl**2*ak*q<3)*q(5) )+14*pl*ak*q(2)*q(5)-(8*pl 
.  **3*q(2)*q(5))+76*pl**2*ak*q(4)**2+44*pl**3*ak*q(l)*q<4)-(24*pl**5*q(l 
.  )*q(4))+4*pl**4*ak*q(3)**2-<3*pl**2*ak*q(2)**2)+8*pl**4*q(2)**2-(8*pl** 

.  4*ak*q(l)**2)+24*pl**6*q(l)**2)/3.0 

TO-TO+2 . 0/3 . 0*pl**2*ak**2*al* (ak*q(6) **2*q(7) **2+2*ak*q(7) **2+16*pl** 

.  2*q(7)**2+ak*q(6)**2*q(5)*q(7)+12*pl**2*q(6)**2*q(5)*q<7)+3*ak*q(5)*q(7) 

.  +16*pl**2*q(5)*q<7)-(4*pl**2*ak*q(3)*q(7))+3*pl*ak*q(2)*q(7)-(16*pl**3* 

.  q(2) *q(7) ) +6*pl**2*ak*q(6) **2+48*pl**4*q(6) **2+21*pl**2*ak*q(4) *q(6)+ 

,  48*pl**4*q<4)*q(6)+9*pl**3*ak*q(l)*q<6)-(48*pl**5*q(l)*q(6) )+ak*q(S)** 

.  2+2*pl**2*q(5)**2-(4*pl**2*ak*q(3)*q(5))+3*pl*ak*q(2)*q(5)-(12*pl**3*q( 

.  2)*q(5))+15*pl**2*ak*q(4)**2+8*pl**4*q<4)**2+9*pl**3*ak*q(l)*q(4)-(32* 

.  pl**5*q<l)*q(4))+2*pl**4*q(2)**2+8*pl**6*q(l)**2) 

T0-T0+pl*fa* (12*pl*q(6) **2*q(7) **2+3*pl*q<7) **2+42*pl**2*q(6) *q(6) *q(7 
.  ) +8*ek*q<6) *q<4) *q(7) +24*pl**2*q(6) *q(4) *q(7) - (8*pl**3*q(6) **2*q(3) *q(7) ) - 
.  (20*pl**3*q(3)*q<7))+14*pl**2*q<6)**2*q(2)*q(7)+14*pl**2*q(2>*q(7)+8*pl 
.  *ak*q<6)*q(l)*q(7)-(4*pl**3*q(6)*q(l)*q(7))+9*pl**3*q(6>**2+60*pl**3*q(4) 

.  *q(6) +42*pl**4*q<l) *q(6)+10*pl*ak*q<4) **2+32*pl**3*q(4) **2+20*pl**2*ak* 

.  q(l)*q<4)+4*pl**4*q(l)*q(4)+2*pl**3*ak*q<3)**2+8*pl**5*q(3)**2-(4*pl** 

.  2*ak*q<2)*q(3) )+4*pl**4*q(2)*q<3)+2*pl*ak*q(2)**2-(9*pl**3*q(2)**2)+10 
.  *pl**3*ak*q(l)**2-<19*pl**5*q<l)**2))/6.0+da*(6*q(6)**2*q(7)**2+ 

.  12*pl*q(6)*q(4)*q(7)+12*pl**2*q<6)*q(l)*q(7>+7*pl**2*q(4)**2+14*pl**3*q(l 
.  )*q(4)+pl**4*q(3)**2-(2*pl**3*q(2)*q<3))+pl**2*q(2)**2+7*pl**4*q(l)** 

.  2)/6.0 

bmn2 (6, 6) -T0+pl**2*ek**3*ra* (3*ek*q<7) **2+32*pl**2*q<7) **2+16*pl**2 
.  *q(6) **2*q<5) *q(7) +6*ek*q(5) *q<7)+48*pl**2*q(5) *q(7) - (16*pl**3*q(2) *q( 

.  7))+9*pl**2*ok*q(6)**2+96*pl**4*q(6)**2+18*pl**2*ek*q(4)*q(6)+144*pl**4 
.  *q(4)*q(6)-(48*pl**5*q(l)*q(6))+3*ek*q(5>**2+16*pl**2*q(5)**2-(16*pl 
.  **3*q(2)*q(5) )+9*pl**2*ak*q(4)**2+48*pl**4*q(4)**2-(48*pl**5*q(l)*q(4 
.  )))/6.0 

T0=6*ek*q<6) **3*q(7) **2+18*ak*q(6) *q(7) **2+12*pl*ok*q(6) **2*q(6) *q(7) +8*pl*ak* 
.  q(6)*q(7)+12*pl**3*q(6)*q(7)+12*ak*q(6)**3*q(5)*q(7)+12*ak*q(6)*q(5)*q(7 
.  )+20*pl*ek*q(6)**2*q(4)*q(7)+28*pl*ek*q(4)*q(7)-(8*pl**2*ek*q(6)*q(3)*q(7)) 

.  -(4*pl*ek*q(6)*q(2)*q(7) )+8*pl**2*ak*q(6)**2*q(l)*q(7)+20*pl**2*ek*q(l)*q(7 
.  ) - (12*pl**4*q(l) *q(7) ) +18*pl**2*ok*q(6) *q(6) **2+2*pl*ek*q(6) **2*q(5) *q(6) + 

.  2*pl*ok*q(5)*q(6)+20*pl**2*ak*q(6)*q(4)*q(6)-(8*pl**3*ak*q(6)**2*q(3)*q(6) ) 

.  -(26*pl**3*ek*q(3)*q(6))+12*pl**2*ak*q(6)**2*q(2)*q(6)+20*pl**2*ek*q(2)*q 
.  (6) - (12*pl**4*q(2) *q(6) ) -(4*pl**3*ak*q(6) *q(l) *q(6) ) +8*pl*ek*q(6) **2*q(4) * 

.  q(5)+8*pl*ek*q<4)*q(5)-(4*pl**2*ak*q(6)*q(3)*q(5) )-(2*pl*ek*q(6)*q(2)*q(5) ) 

.  +6*pl**2*ek*q(6) **2*q<l) *q(5) +6*pl**2*ok*q(l) *q(5) +4*pl**2*ek*q(6) *q(4) **2- 
.  (4*pl**3*ek*q(6) **2*q(3) *q(4) ) -(3*pl*ek**2*q(3) *q(4) ) - (24*pl**3*ak*q(3) *q 
.  (4) ) +10*pl**2*ek*q(6) **2*q(2) *q(4) 

Tl-18*pl*q(6)**3*q(7)**2+21*pl*q(6)*q(7)**2+24*pl**2*q(6)**2*q(6)*q(7)+6*pl 
.  **2*q(6)*q(7)+24*pl**2*q(6)**2*q(4)*q(7)+20*pl**2*q(4)*q(7)-(8*pl*ak*q(6) 

.  *q(3) *q(7) ) -(24*pl**3*q(6) *q(3) *q<7) )+12*pl**2*q(6>  **3*q(2) *q(7) +8*ak*q(6) 

.  *q(2) *q(7) - (4*pl**2*q(6) *q(2) *q(7) )+12*pl**3*q(6) **2*q(l) *q(7) +14*pl**3* 

.  q(l) *q(7) +21*pl**3*q(6) *q(6) **2+8*pl*ak*q(6) *q(4) *q(6) +24*pl**3*q(6) *q(4) *q 
.  (6) -<8*pl**4*q(6) **2*q(3) *q(6) ) -(20*pl**4*q(3) *q(6) ) +14*pl**3*q(6>  **2*q( 

.  2) *q(6) +14*pl**3*q(2) *q(6) +8*pl**2*ek*q(6) *q(l) *q(6) - (4*pl**4*q(6) *q(l) *q 
.  (6) )-<4*pl*ek*q(6)*q(3)*q(5) )+4*ok*q(6)*q(2)*q(5)+4*pl*ok*q(6)*q(4)**2-(4*pl 
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**2*«k*q<6)  “a^qO)  *q(4) )  -  (8*pl**2*«k*q(3>  *q<4) )  -  <24*pl**4*q(3)  *q(4) )  +4 
*pl*«k*q(6)**2*q<2)*q(4)+12*pl**3*q(6>**2*q(2)*q(4)+8*pl**k*q(2)*q<4)+4»pl 
**3*q(2)*q(4)+4*pl**2*«k*q(6)*q(l)*q<4)-(12*pl**4*q(6)*q(l)*q(4))+12*pl** 
4*q(6)*q(2)*q<3)-(4*pl**3**k*q(6)*«2*q(l)*q(3)) 

T2-9*«k*q(6) *q(7) **2+16*pl*«k*q(6) **2*q(6»  *q(7) +16*pl*«k*q(6) *q(7 ) +32*pl**3* 
q<6)*q(7)+12**k*q<6)*q(5)*q(7)+22*pl*«k*q(6)**2*q(4)»q(7)+36*pl*«k*q(4>*q( 
7)+8*pl**3*q<4)*q<7)+6*pl**2*«k*q<6)**2*q(l)*q(7)+20*pl**2*«k*q(l)*q(7)- 
(24*pl**4*q(l)*q(7>)+9*pl**2*ek*q(6)*q<«)**2+6*pl*ok*q(6)**2*q(5)*q(6)+8*pl 
**3*q(6)**2*q(5)*q(6)+8*pl*«k*q(5>*q(6)+8*pl**3*q<5)*q(6)+12*pl**2*«k*q<6) 
*q(4)*q(6)-(4*pl**3*«k*q<6>**2*q(3)*q(6))-(28*pl**3*«k*q(3>*q(6))+6*pl** 
2*«k*q(6)**2*q(2)*q(6)+20*pl**2*«k*q<2)*q(6)-<24*pl**4*q(2>*q(6))+3*ek* 
q<6)*q(5)**2+13*pl*«k*q(6)**2*q{4)*q(5)+21»pl*ek*q(4)*q(5)+7*pl**2*«k*q(6)**2 
*q(X)*q(5)-(8*pl**4*q(6)**2*q(X)*q(5))+13*pl**2*«k*q<l)*q<5)-(8*pl**4*q 
(X) *q<5) ) +3*pX**2**k*q(6) *q(4) **2-(4*pX**3*«k*q(6) **2*q(3) *q(4) ) -(30*pX**3 
*ek*q(3)*q(4))+6*pX**2*«k*q(6)*»2»q(2>*q(4)+X5*pX**2*«k*q(2)*q(4)-(8*pX** 
4*q(2) *q<4) ) -(2*pX**4*«k*q(X) *q(3) ) 

T0-pX*he* (T0+3*«k**2*q(2) *q(4) +4*pX**2*«k*q(2) *q(4) -(2*pX**3**k*q(6) *q 
(X)*q<4))+4*pX**4*«k*q(6)**2*q(X)*q(3)-(3*pX**2*«k**2*q<X)*q(3))+2*pX**4 
*ek*q<X)*q(3)-(2*pX*»3**k*q(6)**2*q(X)*q(2))+3*pX*«k**2*q(X)*q(2)-(X6*pX 
**3*ek*q(X) *q(2) ) +X2*pX**5*q<X) *q(2) ) /3 . 0+f«* (TX+8*pX**5*q(6) **2*q 
<X) *q(3) -(8*pX»*3*«k*q(X) *q(3) ) -(4*pX**5*q(X) *q(3) ) -(5*pX**3*q(6) *q(2) 
**2)+4*pX**2*ek*q(6)**2*q(X)*q(2)-(2*pX**4*q<6)**2*q(X)*q(2>)+8*pX**2*»k*q 
(X) *q(2) -(X0*pX**4*q(l) *q(2) ) -<5*pX**5*q(6) *q(X) **2> ) /6.0+pX*«k*«j* 

(T2- (5*pX**3*«k*q(X) *q(2) ) +Xfi*pX**5*q(X) *q<2) ) /3 . 0 

T0-T0+2.0/3.0*pX**2*«k**2*«X*(2*«k*q«)»*2*q(6)*q(7)+4*ek*q(6)*q(7)  + 
32*pX**2*q(6)*q(7)+2*«k*q(6)**2*q(4)*q(7)+7*«k*q(4)*q(7)+X6*pX**2*q(4)* 
q(7)+3*pX*«k*q(X)*q(7)-<X6*pX**3*q(X)*q(7))+ek*q(6)**2*q(5)*q(6)+X2*pX** 
2*q<6)**2»q<5)*q(6)+3**k*q(5>*q(6>+X6*pX**2*q(5)*q(6)-(4*pX»*2*ek*q(3)* 
q(6))+3*pX»*k*q(2)*q(6)-(X6*pX**3*q(2)*q(6)>+®lt*q(6>**2*q(4)*q(5)+6*pX** 
2*q(6)**2*q(4)*q(5)+6*«k*q(4)*q(5)+6*pX**2*q(4)*q(5)-(6*pX**3*q(6)**2*q( 
X)*q(5))+3*pX*«k*q(X)*q(5)-(X0*pX**3*q(X)*q(5))-(4*pX**2*ek»q(3)*q(4)) 
+3*pX*ak*q(2) *q<4) - (X0»pX**3*q(2) *q(4) ) +6*pX**4*q(X) *q(2) ) 

bmn2 (6, 7)-T0+da* (X2*q(6) **2*q(6) *q(7) -(X2*pX*q(6) **3*q(3) *q(7) ) - ( 
X2*pX*q(6)*q(3)*q(7))+X2*q(6)**3*q(2)*q(7)+X2*q(6)*q(2)*q(7)+X2*pX*q(6)*q(4 

)*q(6)+X2*pX**2*q(6)*q(X)*q<6)+7*pX*q(6)*q<4)**2-(6*pX**2*q(6)*»2*q<3)*q(4 

))-(6*pX**2*q(3)*q(4))+6*pX*q<6)**2*q(2)*q(4)+6*pX*q(2)*q(4)+8*pX**2*q(6) 

*q(X) *q(4) +7*pX**3*q(6) *q(3) **2-(8*pX**2*q<6) *q(2) *q(3) ) - (6*pX**3»q(6) **Z* 

q(X)*q<3))-(6*pX**3*q(X)*q(3))+pX*q(6)*q<2)**2+6*pX**2*q(6)**2*q(X)*q(2) 

+6*pX**2*q<X)  *q(2)  +pX'>’*3*q<6)  *q<X)  **2)  /6 . 0+pX»*2*ek*»3*ra*  (3*«k*q(6) 

*q(7)+32*pX**2*q<6)*q<7)+3*ak*q<4)*q<7)+24*pX**2*q(4)*q(7)-(8*pX**3*q 

(X)*q(7))+8*pX**2*q(6)**2*q(5)*q<6)+3*ak»q(5)*q(6)+24*pX**2*q<5»*q(6)- 

(8*pX**3*q<2)*q(6))+8*pX**2*q(6>**2*q(4)*q(5)+3*ek*q(4)*q(5)+X6*pX**2*q 

(4)*q(5)-<8*pX**3*q(X)*q(5))-(8*pX**3*q(2)*q(4)))/3.0+4*pX**4**k**4*t* 

*(q(6)+q(4))*(q(7)+q(5)) 

T0=48*ak*q(6) **4*q(7) **2+72*ok*q(6) **2*q(7) **2+24*ok*q(7) **2+36*pX**2*q(7) 
**2+24*pX*ok*q(6) **3*q(6) *q(7)+72*pX*ek*q(6) *q(6) *q(7) +24*ok*q(6) **4*q(5) *q( 
7)+36*ak*q<6)**2*q(5)*q(7)+X2*ek*q(5)*q(7)-<X44*pX**2*ok*q(6)**2*q(3)*q(7 
) ) -(X56*pX**2*ok*q(3) *q(7) ) +24*pX*ek*q(6) **4*q(2) *q(7) +X20*pX*ek*q(6) **2*q( 
2)*q(7)+X20*pX*«k*q(2)*q(7)-(72*pX**3*q(2)*q(7) )+X2*pX**2*ok*q(6)**2*q(6 
) **2+8*pX**2*ok*q(6) **2+X2*pX**4*q<6)**2+24*pX*ek*q(6) **3*q(5) *q(6) +24*pX 
*ek*q(6)*q(5)*q<6)+40*pX**2*ek*q(6)**2*q(4)*q(6)+56*pX**2*ok*q(4>*q(6)-(X6 
*pX**3*ok*q(6)*q(3)*q(6) )-(8*pX**2*ok*q(6)*q(2)*q(6) )+X6*pX**3*ok*q(6)**2*q(X 
)*q(6)+40*pX**3*ek*q(X)*q<6)-<24*pX**5*q(X)*q(6) )-(X6*pX**2*ok*q(6)**4*q 
<3)*q(5) )-<64*pX**2*«k*q(6)**2*q(3)*q(5))-(52*pX**2*ek*q(3)*q(5) )+24*pX* 
ok*q(6)**4*q(2)*q(5)+56*pX*Bk*q(6)**2*q(2)*q(5)+40*pX*ok*q(2)*q(5)+X6*pX**2 
*ek*q(6)**2*q(4)**2+ek**2*q(4)**2 

TX-X8*ok*q(6) **4*q(7) **2+48*ok*q(6) **2*q(7) **2+24*ok*q(7) **2+48*pX**2*q(7) 
**2+X8*pX*ek*q(6)*q(6)*q(7)+X8*ek*q(6)**4*q(5)*q(7)+48*ok*q(6)**2*q(5)*q(7) 
+24*pX**2*q(6)**2*q(5)*q(7)+24*ek*q(5)*q(7)+24*pX**2*q(5)*q(7)-(48*pX** 
2*ek*q(6)**2*q(3)*q(7) )-(84*pX**2*ok*q(3)*q<7))+36*pX*ok*q(6)**2*q(2)*q(7) 
+60*pX*ok*q<2)*q(7)-(72*pX**3*q(2)*q(7))+8*pX**2*ok*q(6)**2*q(6)**2+8*pX 
**2*ek*q(6)**2+X6*pX**4*q(6)**2+X2*pX*ek*q<6)*q(5)*q(6)+22*pX**2*ek*q(6)**2 
*q(4)*q(6)+36*pX**2*ek*q(4)*q(6)+8*pX**4*q<4)*q(6)+6*pX**3*ok*q(6)**2*q( 
l)*q(6)+20*pX**3*ek*q(X)*q(6)-(24*pX**5*q(X)*q(6) )+3*ek*q(6)**4*q(5)**2 
+8*ok*q(6) **2*q(5) **2+4*ek*q<5) **2-(40*pX**2*ok*q(6) **2*q(3) *q(5) ) - (56*pX 
**2*ek*q(3)*q(5))+32*pX*ek*q(6)**2*q(2)*q<5)-(X6*pX**3*q(6)**2*q(2)*q(5)) 
+40*pX*ok*q(2)*q(5)-(24*pX**3*q(2)*q(5))+X4*pX**2*ok*q(6)**2*q(4)**2+25* 
pX**2*ek*q(4)**2 

T0=2*pX**2*ek**4*te*(3*(q(7)+q(5))**2+pX**2*(q(6)+q(4) )**2)+h6 
*(T0+36*pX**2*ek*q(4)**2-(8*pX**3*ok*q(6)**2*q(l)*q(4> )+2*pX*ek**2*q(X)* 
q(4)+X6*pX**3*ek*q(X)*q(4)+7*pX**2*ok**2*q(3)**2+48*pX**4*ak*q(3)**2+X6 
*pl**3*ak*q(6) **2*q(2) *q(3) -<X4*pX*ok**2*q<2>  *q(3> ) +8*pX**3*ek*q(2) *q(3) - 


C-43 


(20*pl**2*«lt*q<6)**2*q<2)**2)+7*«k**2*q<2)**2-(44*pl**2*«k*q(2)**2)+3«*pl 
**4*q(2)**2-(12*pl**4*«k*q(6)**2*q<l)**2)^l**2*«k**2*q<l)**2-(12*pl**4* 
•k*q(l)  **2)  +12*pl**«*q(l)  **2)  /6.0+^*«j*  (Tl+6*pl**3*«k*q<«)  **2*q(l>  * 
q<4)+14*pl**3*«k*q<l)*q<4)-<8*pl**5*qa»*q(4))+l«*pl**4*«k*q(3>**2-<4* 
pl**3*«k*q(2) *q(3) ) - (8*pl**2*«k*q(2) **2) +24*pl**4*q(2) **2- (3*pl**4*«k*q< 
l)**2)+8*pl**6*q(l)**2)/3.0 

T2-36*q(fi) **4*q<7) **2+36*q(6) **2*q<7) **2+9*q(7) **2+3fi*pl*q(6) **3*q(«) *q(7 
)  +42*pl*q(6)  *<!<6)  *q(7)  -  (96*pl**2*q(6)  **2*q(3)  *q(7) )  -  («0*pl**2*q(3)  *q<7) ) 
+36*pl*q(6) **4*q(2) *q(7) +78*pl*q(6) **2*q(2) *q(7) +42*pl*q(2>  *q(7) +12»pl**2 
*q(6)**2*q(6)**2+3*pl**2*q(6)**2+24*pl**2*q(6)**2*q(4>*q(6)+20*pl**2*q(4 
) *q<6) -(8*pl*«k*q<6) *q(3) *q(6) )-<24*pl**3*q{6) *q(3) *q(6) )+12*pl»*2*q(6) **3 
q(2)*q(6)+8**k*q(6)*q(2)*q<6)-(4»pl**2*q(6)*q(2)*q(6)»+12*pl**3*q(6)**2*q( 
1)  *q<6)  +14*pl**3*q(l)  *q(6)  +2**k*q(6)  **2*q«)  ’‘*2+2*«k*q(4)  **2+8*pl**2*q< 
4)**2+4*pl*«k*q(6)**2*q(l)*q(4)-<24*pl**3*q(6)**2*q(l)*q(4))+4*pl*»k*q(l)* 
q(4) - (4*pl**3*q(l) *q(4) ) +10*pl**2*«k*q(6) **2*q(3) **2+l0*pl**2*«k*q(3) **2 
+32*pl**4*q(3) **2- (20*pl*«k*q(6) **2*q(2) *q<3) ) +16*pl**3*q(6) **2*q(2) *q(3) 
-(20*pl*«k*q(2)*q(3) )-(4*pl**3*q(2)*q<3))+6*pl**2*q(6)**4*q(2)**2+10*«k* 
q(6)**2*q(2)**2 

T0-T0+f«*(T2-(22*pl**2*q(6)**2*q(2)**2)+lO*«k*q(2)*»2-(19*pl**2*q(2 

)**2)+2*pl**2**k*q<6)**2*q(l)**2-(18*pl**4*q(6)**2*q(X)**2)+2*pl**2*«k*q(l 

)**2-(9*pl**4*q(l)**2))/6.0 

T0-T0+2.0/3.0**k**2*«l*(6**k*q(6)**2*q(7)**2+6*«k*q(7)**2+4«»pl**2*q 
(7)**2+9*«k*q<6)**2*q(5»*q<7)+36*pl**2*q(6>**2*q(5)*q(7)+9«*k*q(5)*q(7)+ 
48*pl**2*q(5)*q(7)-<12*pl*’‘2*«k*q(3)*q<7))+9*pl*«k*q(2)*q(7)-(48*pl**3* 
q(2) *q(7) )+pl**2*«k*q(6) **2*q(6) **2+2*pl**2*«k*q(6) **2+16*pl**4*q(6) **2+ 
2*pl**2*ek*q(6)**2*q(4)*q<6)+7*pl**2*«k*q(4)*q(6)+16*pl**4*q(4)*q(6)+3*pl 
**3*«k*q<l) *q(6) - (16*pl**5*q(l) *q(6) )+6*pl**2*q(6) **4*q<5) *»2+3*«k*q(6) ** 
2*q<5) **2+12*pl**2*q(6) **2*q(5) **2+3**k*q(5) **2+8*pl*»2»q(5) **2-(12*pl 
**2*ek*q(3)*q(5) )-(12*pl**3*q(6)**2*q(2)*q(5))+9*pl**k*q(2)*q(5)-(32»pl 
**3*q(2)*q(5))+pl**2*ek*q(6)**2»q(4)**2+5*pl**2*«k*q(4)»*2+2*pl**4*q(4) 
**2+3*pl**3*ok*q(l)*q(4)-(12*pl**5»q(l)*q<4))+8*pl**4*q(2>*»2+2»pl**6» 
q(l)**2) 

binn2  <7, 7)-T0+ek**3*re*  (9*ak*q(7)  **2+9(:*pl**2*q(7)  **2+48*pl**2*q(6)  ** 
2*q(5)*q(7)+18*ek*q<5)*q(7)+144*pl**2*q(5)*q(7>-(48*pl**3*q(2)*q(7>) 
+3*pl**2*ek*q(6)**2+32*pl**4*q(6)**2+6*pl**2*»k*q(4)*q<6)+48*pl**4*q(4) 
*q<6)-(16*pl**5*q(l)*q(6))+32*pl**2*q(6>**2*q(5)**2+9»ak*q(5)**2+48*pl 
**2*q(5)**2-(48*pl**3*q(2)*q(5))+3*pl**2*ak*q(4)»*2+16*pl**4*q(4)»*2- 
<16*pl**5*q(l)*q<4)))/6.0+de*<6*q(6)**2»q(6)**2-(12*pl*q(6>**3*q(3 
) *q(6) ) - (12*pl*q(6) *q(3) *q<6) ) +12*q(6>  **3*q(2) *q(6) +12*q(6) *q(2»  *q(6) +2* 
q(6)**2*q<4)**2+q<4)**2+4*pl*q(6)**2*q(l)*q(4)+2*pl*q(l)*q(4)+6*pl»*2*q(6) 
**4*q(3)**2+14*pl**2*q(6>**2*q(3)**2+7*pl**2*q(3)**2-(12*pl*q(6)**4*q(2> 
*q(3) ) - (28*pl*q(6) **2*q(2) *q(3) ) -<14*pl*q(2) *q(3) ) +6*o<«) **4*q(2) **2+14 
*q (6) **2*q(2) **2+7*q<2) **2+pl**2* (2*q(6) **2+1) *q (1) ** ' ) /6 . 0 

do  100  ii-1,7 

do  100  jj“ii,7 

bmn2 ( j j, ii)-bmn2 (ii, j j) 

return 

end 


subroutine  sbeanik(bmk,ekl) 

inq>llclt  double  precision  (a-h,o-z) 

common/elas/ae, de, fe,he, ej, el, re, te,as,ds, fs 
dimension  bink(7,7) 
do  10  ii=l,7 
do  10  jj=l,7 
bmk  ( j  j , ii ) =0 . OdO 

bmk(2,2)»ae 

bmk(5,5)=he*ekl**2 

bnik(5,  7)=he*ekl**2+fe*ekl 

bmk (7,7) =he*okl**2+f e*2  *ekl+de 

bmk(4, 4)=9*fs*ekl**2+6*ds*ekl+as 


biA  ( 4 ,  C)  -9*f  •**ia**2^<*<U**ia>M 

]g«k  <  C,  C)  •»*£  •*«kl**2>C*d«*«kl4^M 

do  100  11-1,7 
do  100  jj-11,7 
)Mk(jj.ll)<4Mk<ll,  jj) 
roturn 


•ubroutlno  afaanl(q,l3«nl,ak) 

Mot*  that  kl  oppoora  aa  'ok'  In  thla  aubzoutlno 

Tho  oquatlona  In  thla  aubroutlno  mro  gonoratod  by  MhCStMh. 

la[pllclt  doublo  pxoclalon  <a-h,o-a) 

ceoBMn/olaa/ao,  do,  fa,  ho,  o  j ,  ol,  ro,  to,  aa,  da,  f  a 
Hioonalon  banl  (7, 7)  ,q(7) 

baml  (2,2)-3*q(2)*ao 
banl <2 , 4 ) -ao*q ( 4 ) 

banl<2,5)-3*ok**2*ho*<q(7»+q(5))+ok*<2*q<6»**2+3)*fo*q(7) 
banl (2, 7J-ok* (2*q<6) **2+3) *£o* (2*q(7)+q(5) )+3*ok**2*ho* (q(7)  +q 
.  (5))  +  <4*q«)**2+3)*do*q(7) 
banl<4,4)-q<2)*ao 
banl <5, 5)-3*ok**2*q(2) *ho 
banl ( 5 , 6 ) -ok*q ( 6 ) * £o*q ( 7 ) 

banl <5, 7)-ok*fo* (q<6) *q<fi) +2*q(6) **2*q<2)+3*q(2) ) +3*ok**2*q(2) *ho 
banl (6, 7)-ok*q(6) *£o* (2*q(7) +q(5) ) +2*q(«) *do*q<7) 
banl(7,7)-da*<2*q(«)*q(6)+4*q(fi)**2*q(2)+3*q(2))+2*ok*fo*(q(6)*q 
.  (6)+2*q(6)**2*q(2)+3*q<2))+3*ok**2*q(2)*ho 

do  100  11-1,7 
do  100  Jj-11,7 

haml  <  J  j,  11) J  j) 

roturn 

ond 


aubroutlno  abmn2  (q,baui2,  ok) 

noto  that  kl  appoara  aa  'ok'  In  thla  aubroutlno 

tho  oquatlona  In  thla  aubroutlno  woro  gonoratod  by  awcayaw. 

lapllclt  doublo  proclalon  (a-h,o-a) 

coBBion/olaa/ao,  da,  £o,  ho,  o  j ,  ol ,  ro,  to,  aa,  da,  £a 
dlawnalon  ban2  (7, 7)  ,q(7) 


biiin2(2,2)-7.0/6.0*ok**2*ho*(q(7)+q(5))**2+(6*q<6)**4+14*q(6)**2+7)* 
.  do*q(7)**2/6.0+5.0/3.0*ok*(q(6)**2+l)*£o*q(7)*<q<7)+q(5))+ao 
.  *(q(4)**2+3*q(2)**2)/2.0 
ban2  (2 , 4 ) -q  (2 )  *ao*q  ( 4 ) 

ban2 (2, 5)-7 .0/3 . 0*ok**2*q(2) *ho* (q(7)+q<5) ) +ok*£o*  <2*q(6) *q(6) 

.  +5*q(6)**2*q(2)+5*q<2))*q(7)/3.0 

ban2(2,6)-q(6)*<q<6)**2+l)*do*q(7)**2+2.0/3.0*ok*q<6)*£o*q(7)*(q 
.  (7)+q(5)) 

bBn2 (2, 7) -ok*£o*  <2*q(6) *q(6)+5*q(6)**2*q(2) +5*q<2) ) * (2*q(7) +q(5) ) / 

.  3.0+7.0/3.0*ok**2*q(2)*ho*(q(7)+q(5))+do*(6*q(6)**3*q(6)+6* 

.  q{6)*q(6)+6*q<6)**4*q(2)+14*q(6)**2*q(2)+7*q(2))*q(7)/3.0 
bBn2(4,4)-ok**2*ho*(q(7)+q(5))**2/6.0+(2*q(6)**2+l)*do*q(7) 

.  **2/6 .0+ok*  <q<6) **2+1) *£o*q(7) * (q(7) +q(5) )/3 . 0+ao* (3*q(4) **2 
.  +q<2)**2)/2.0 

ban2 (4, 5)-ok**2*ho*q(4) * (q(7) +q(5) ) /3 . 0+(ok*q(6) **2+ok) *fo*q(4) 

.  *q(7)/3.0 


C-45 


kM2  (4, 7>-«k*  (q(«)  •(2*«<7}4^|$) )  /3.»^**20k«M( 

.  4)*(4(7)«^(5))/3.04^(2*«(C)**24^1)*d**«(4>*q(7)/3.0 
1mh2  (S,  3)-3 . 0/2 . 0**k**4*c«*  <q(7)  -fqCS)  )  **2*«k**2*  (q(S)  **2«)  *  (3*q(C) 

.  **2+2)  *«J*q<7)  **2/3 . 0*2*«k**3*  (q(C)  **2*1)  *«l*q(7»  *  (q(7)  ^(5) 

.  ) *«k**2*h«* (q(4) **2«7*q(2) **2) /C.O 
b«D2 <S,  0-2 .0/3.0*«li*q(C) *q(2) *f«*q(7) 

b«n2  (S,  7)  -Ot*)M*  (6*  (q(0  **2+1)  *  (2*q(0  **2+1)  *q(7)  **2+«li*  (q(4)  **2+7*q 
.  (2)**2>)/6.0+O(**2*(q(O**2+2)*(3*q(C)**2+2>*«j*q(7)*(3*q(7)+2*q(5 
.  ))/3.0+«k**3*<q(O**2+l)*«l*(q(7)+q(5))*(3*q(7)+q(5))+3.0/2.0*«)[ 

.  **4*e«*  (q(7)  +q(5) )  **2+*]c*f«* (4*q(0 *q(2)  *q(0+q<C)  **2*q(4)  **2+ 

.  q(4) **2+5* (q(«) **2+1) *q(2) **2) /4.0 
bn2  <C.  6)-q(6)  **2*da*q(7)  **2 

bm2(€,7)-2.0/3.0*«]c*q(O*q(2)*f«*(2*q<7)+q<5))+2*q(O*d«*(q(O* 

.  0«O+q(6)**2*q(2>+q«2))*q(7) 

baui2  (7, 7)-f«*  (9*  (2*q<6)  **2+1)  **2*q(7)  •*2+2*«)t*  (4*q(0  *q(2)  *q(6)  +q(0 
.  **2*q(4) **2+q<4) **2+5* (q<6) **2+1) *q(2) **2) ) /C.0+«lc**2* (q(6) **2+2) •  (3* 

.  q(6)**2+2)*«j*(6*q<7)**2+C*q(5)*q(7)+q(5)**2)/3.0+Ot*h«*(12* 

.  <q(6) **2+1) *  <2*q(6) **2+1) *q<7) * (2*q<7) +q(5) ) +«k* (q(4) **2+7*q(2) **2) ) / 

.  6.0+2*«li**3*<q(6)**2+l)*«l*(q(7)+q(5))*(2*q(7)+q(5))+3.0/2.0*»k** 

.  4*r«*  (q(7)  +q(5) )  **2+<l**  (6*q<6)  **2*q(0  **2+12*q(fi)  **3*q(2)  *q( 

.  6)  +12*q<6)  *q(2)  *q(6)  +2*q(0  **2*q<4)  **2+q<4)  **2+  (C*q(6)  **4+14*q(0  **2+7)  *q 
.  (2)**2)/6.0 

do  100  il-1,7 
do  100  jj-li,7 

100  biBn2(jj.li)-l»n2(ii,  jj) 
raturn 
•nd 
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